diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-21 23:43:17 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 00:07:20 -0800 |
| commit | 84ed01088568ffe9cf49047f10500ca511db0c9e (patch) | |
| tree | 614defca700a49e07194fa9e5b177120fc2ba50b /opcode.h | |
| parent | 8f84cc86e11f13b85c64fd0205261e12bef9e7f9 (diff) | |
| download | perl-84ed01088568ffe9cf49047f10500ca511db0c9e.tar.gz | |
[perl #80628] __SUB__
After much alternation, altercation and alteration, __SUB__ is
finally here.
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -520,6 +520,7 @@ EXTCONST char* const PL_op_name[] = { "rkeys", "rvalues", "coreargs", + "runcv", }; #endif @@ -899,6 +900,7 @@ EXTCONST char* const PL_op_desc[] = { "keys on reference", "values on reference", "CORE:: subroutine", + "__SUB__", }; #endif @@ -1292,6 +1294,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_rkeys, Perl_pp_rvalues, /* implemented by Perl_pp_rkeys */ Perl_pp_coreargs, + Perl_pp_runcv, } #endif #ifdef PERL_PPADDR_INITED @@ -1682,6 +1685,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_each, /* rkeys */ Perl_ck_each, /* rvalues */ Perl_ck_null, /* coreargs */ + Perl_ck_null, /* runcv */ } #endif #ifdef PERL_CHECK_INITED @@ -2066,6 +2070,7 @@ EXTCONST U32 PL_opargs[] = { 0x00001b08, /* rkeys */ 0x00001b08, /* rvalues */ 0x00000600, /* coreargs */ + 0x00000004, /* runcv */ }; #endif |