Set builtin::indexed proto to "@"

leonerd · Aug 17, 2023 · 8be87d1 · 8be87d1
1 parent 18d31a1
commit 8be87d1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/builtin.c b/builtin.c
@@ -552,6 +552,8 @@ Perl_boot_core_builtin(pTHX)
             proto = "";
         else if(builtin->checker == &ck_builtin_func1)
             proto = "$";
+        else if(builtin->checker == &ck_builtin_funcN)
+            proto = "@";
 
         CV *cv = newXS_flags(builtin->name, builtin->xsub, __FILE__, proto, 0);
         XSANY.any_i32 = builtin->ckval;

diff --git a/lib/builtin.t b/lib/builtin.t
@@ -305,6 +305,8 @@ package FetchStoreCounter {
         my $count = indexed 'i', 'ii', 'iii', 'iv';
         is($count, 8, 'indexed in scalar context yields size of list it would return');
     }
+
+    is(prototype(\&builtin::indexed), '@', 'indexed prototype');
 }
 
 # Vanilla trim tests