diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-27 22:14:08 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:48:41 -0800 |
| commit | a2ddd1d1c6155a3fca85c109c04d2c5bbedce836 (patch) | |
| tree | a45500a350a42955f2a06bfa4d27cc6d3b156f95 /pad.c | |
| parent | 39899bf07e706fce4e1c299bbb3e0c5afd22d570 (diff) | |
| download | perl-a2ddd1d1c6155a3fca85c109c04d2c5bbedce836.tar.gz | |
Use PADNAME rather than SV in pad.c:pad_push
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2376,14 +2376,14 @@ Perl_pad_push(pTHX_ PADLIST *padlist, int depth) SV** const oldpad = AvARRAY(svp[depth-1]); I32 ix = AvFILLp((const AV *)svp[1]); const I32 names_fill = PadnamelistMAX((PADNAMELIST *)svp[0]); - SV** const names = PadnamelistARRAY((PADNAMELIST *)svp[0]); + PADNAME ** const names = PadnamelistARRAY((PADNAMELIST *)svp[0]); AV *av; for ( ;ix > 0; ix--) { if (names_fill >= ix && PadnameLEN(names[ix])) { - const char sigil = SvPVX_const(names[ix])[0]; - if ((SvFLAGS(names[ix]) & SVf_FAKE) - || (SvFLAGS(names[ix]) & SVpad_STATE) + const char sigil = PadnamePV(names[ix])[0]; + if (PadnameOUTER(names[ix]) + || PadnameIsSTATE(names[ix]) || sigil == '&') { /* outer lexical or anon code */ |