diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-29 05:58:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-29 05:58:36 +0000 |
| commit | e9d09c080a413488f42684bbf284e91cf85411fb (patch) | |
| tree | a8ddd2f8e353c3208e37b4e05e3e9c80342ee20a /pad.c | |
| parent | 7f848b6b8b0b3c0ddcfdc59f43b1e261084ffa51 (diff) | |
| download | perl-e9d09c080a413488f42684bbf284e91cf85411fb.tar.gz | |
More of the #18600.
p4raw-id: //depot/perl@18601
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1168,21 +1168,21 @@ Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full) if (namesv) { if (SvFAKE(namesv)) Perl_dump_indent(aTHX_ level+1, file, - "%2d. 0x%"UVxf"<%lu> FAKE \"%"SVf"\"\n", + "%2d. 0x%"UVxf"<%lu> FAKE \"%s\"\n", (int) ix, PTR2UV(ppad[ix]), (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0), - namesv + SvPVX(namesv) ); else Perl_dump_indent(aTHX_ level+1, file, - "%2d. 0x%"UVxf"<%lu> (%lu,%lu) \"%"SVf"\"\n", + "%2d. 0x%"UVxf"<%lu> (%lu,%lu) \"%s\"\n", (int) ix, PTR2UV(ppad[ix]), (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0), (unsigned long)I_32(SvNVX(namesv)), (unsigned long)SvIVX(namesv), - namesv + SvPVX(namesv) ); } else if (full) { |