diff options
| author | Vincent Pit <perl@profvince.com> | 2010-06-03 11:44:15 +0200 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2010-06-03 14:00:38 +0200 |
| commit | 789bd863840ef4ff6c46f7c2ee0f3f64e0b5daa6 (patch) | |
| tree | 547efad230cfa3f03e5c971600e394627beb62f3 /embed.h | |
| parent | 540810e8986e170e75f4b34a7ca1f1dd5b0da3c4 (diff) | |
| download | perl-789bd863840ef4ff6c46f7c2ee0f3f64e0b5daa6.tar.gz | |
Make pp_reverse fetch the lexical $_ from the correct pad
This is achieved by introducing a new find_rundefsv() function in pad.c
This fixes [perl #75436].
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -673,6 +673,7 @@ #endif #define pad_findmy Perl_pad_findmy #define find_rundefsvoffset Perl_find_rundefsvoffset +#define find_rundefsv Perl_find_rundefsv #ifdef PERL_CORE #define oopsAV Perl_oopsAV #define oopsHV Perl_oopsHV @@ -3106,6 +3107,7 @@ #endif #define pad_findmy(a,b,c) Perl_pad_findmy(aTHX_ a,b,c) #define find_rundefsvoffset() Perl_find_rundefsvoffset(aTHX) +#define find_rundefsv() Perl_find_rundefsv(aTHX) #ifdef PERL_CORE #define oopsAV(a) Perl_oopsAV(aTHX_ a) #define oopsHV(a) Perl_oopsHV(aTHX_ a) |