diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-09-10 16:07:30 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:09 -0700 |
| commit | d2c8bf052f5a8bb99050f6d2418d77151eb4b468 (patch) | |
| tree | f0349e7fbd6b24359e94fabd44efc0f57dd090a0 /pad.h | |
| parent | c388b2138d3ec12be3c986d57c518d41d042e7a1 (diff) | |
| download | perl-d2c8bf052f5a8bb99050f6d2418d77151eb4b468.tar.gz | |
Set PL_comppad_name on sub entry
Diffstat (limited to 'pad.h')
| -rw-r--r-- | pad.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -172,7 +172,7 @@ XXX DAPM it would make more sense to make the arg a PADOFFSET Clear the pointed to pad value on scope exit. (i.e. the runtime action of 'my') =for apidoc m|void|SAVECOMPPAD -save PL_comppad and PL_curpad +Save PL_comppad_name, PL_comppad and PL_curpad. =for apidoc Amx|PAD **|PadlistARRAY|PADLIST padlist @@ -318,6 +318,7 @@ Restore the old pad saved into the local variable opad by PAD_SAVE_LOCAL() #define PAD_SET_CUR_NOSAVE(padlist,nth) \ + PL_comppad_name = PadlistNAMES(padlist); \ PL_comppad = (PAD*) (PadlistARRAY(padlist)[nth]); \ PL_curpad = AvARRAY(PL_comppad); \ DEBUG_Xv(PerlIO_printf(Perl_debug_log, \ |