Fix built-in prototype of each, keys, and values

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 : \[@%]

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";
                }

diff --git a/t/op/cproto.t b/t/op/cproto.t
index cc2426a..af1555f 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -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 ($$)