diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-28 16:08:19 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-28 16:35:53 -0800 |
commit | eb4ec35b34d91de654d6eb753c89dca0b28c7a07 (patch) | |
tree | b52ef80d209fb967bc96c219bbdfd2e9a42be961 /regen | |
parent | 1d51ab6ca7dce64da157c7a48bf6431086a32ed2 (diff) | |
download | perl-eb4ec35b34d91de654d6eb753c89dca0b28c7a07.tar.gz |
[perl #123514] Make prototype() imply $_
Previously it would read and replace the previous item on the stack:
$ ./perl -le 'print "CORE::undef", prototype'
;\[$@%&*]
Diffstat (limited to 'regen')
-rw-r--r-- | regen/opcodes | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/opcodes b/regen/opcodes index 4ab05e01f4..4d5770ee97 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -66,7 +66,7 @@ rv2sv scalar dereference ck_rvconst ds1 av2arylen array length ck_null is1 rv2cv subroutine dereference ck_rvconst d1 anoncode anonymous subroutine ck_anoncode s$ -prototype subroutine prototype ck_null s% S +prototype subroutine prototype ck_prototype su% S? refgen reference constructor ck_spair m1 L srefgen single ref constructor ck_null fs1 S ref reference-type operator ck_fun stu% S? |