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 /embed.h | |
| 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 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1109,6 +1109,7 @@ #define ck_method(a) Perl_ck_method(aTHX_ a) #define ck_null(a) Perl_ck_null(aTHX_ a) #define ck_open(a) Perl_ck_open(aTHX_ a) +#define ck_prototype(a) Perl_ck_prototype(aTHX_ a) #define ck_readline(a) Perl_ck_readline(aTHX_ a) #define ck_refassign(a) Perl_ck_refassign(aTHX_ a) #define ck_repeat(a) Perl_ck_repeat(aTHX_ a) |