diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-27 22:12:11 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:48:41 -0800 |
| commit | 013269332931e4eb162f49d6097358b1f62a7db6 (patch) | |
| tree | ec5e9e6448bb15a90f276192d85c475b3f264f6d /pad.c | |
| parent | dbfcda05eb64bedf93e1561611c6e820e1c50ff1 (diff) | |
| download | perl-013269332931e4eb162f49d6097358b1f62a7db6.tar.gz | |
Use PADNAME rather than SV in pad.c:do_dump_pad
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1828,7 +1828,7 @@ Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full) { const PADNAMELIST *pad_name; const AV *pad; - SV **pname; + PADNAME **pname; SV **ppad; I32 ix; @@ -1847,18 +1847,18 @@ Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full) ); for (ix = 1; ix <= PadnamelistMAX(pad_name); ix++) { - const SV *namesv = pname[ix]; + const PADNAME *namesv = pname[ix]; if (namesv && !PadnameLEN(namesv)) { namesv = NULL; } if (namesv) { - if (SvFAKE(namesv)) + if (PadnameOUTER(namesv)) Perl_dump_indent(aTHX_ level+1, file, "%2d. 0x%"UVxf"<%lu> FAKE \"%s\" flags=0x%lx index=%lu\n", (int) ix, PTR2UV(ppad[ix]), (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0), - SvPVX_const(namesv), + PadnamePV(namesv), (unsigned long)PARENT_FAKELEX_FLAGS(namesv), (unsigned long)PARENT_PAD_INDEX(namesv) @@ -1871,7 +1871,7 @@ Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full) (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0), (unsigned long)COP_SEQ_RANGE_LOW(namesv), (unsigned long)COP_SEQ_RANGE_HIGH(namesv), - SvPVX_const(namesv) + PadnamePV(namesv) ); } else if (full) { |