This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix built-in prototype of each, keys, and values
authorRafael Garcia-Suarez <rgs@consttype.org>
Wed, 21 Oct 2009 17:07:09 +0000 (19:07 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Thu, 22 Oct 2009 08:16:42 +0000 (10:16 +0200)
Since those keywords can now compile to two different ops each,
the usual inspection of opflags is not sufficient for perl to
return a meaningful prototype. So we hardcode the correct return
value for 5.12 : \[@%]

pp.c
t/op/cproto.t

diff --git a/pp.c b/pp.c
index 078db3b..6f56368 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -422,6 +422,10 @@ PP(pp_prototype)
                    ret = newSVpvs_flags("_;$", SVs_TEMP);
                    goto set;
                }
+               if (code == -KEY_keys || code == -KEY_values || code == -KEY_each) {
+                   ret = newSVpvs_flags("\\[@%]", SVs_TEMP);
+                   goto set;
+               }
                if (code == -KEY_readpipe) {
                    s = "CORE::backtick";
                }
index cc2426a..af1555f 100644 (file)
@@ -57,7 +57,7 @@ delete undef
 die (@)
 do undef
 dump ()
-each (\%)
+each (\[@%])
 else undef
 elsif undef
 endgrent ()
@@ -120,7 +120,7 @@ index ($$;$)
 int (_)
 ioctl (*$$)
 join ($@)
-keys (\%)
+keys (\[@%])
 kill (@)
 last undef
 lc (_)
@@ -252,7 +252,7 @@ untie undef
 until undef
 use undef
 utime (@)
-values (\%)
+values (\[@%])
 vec ($$$)
 wait ()
 waitpid ($$)