Change 18601 by jhi@kosh on 2003/01/29 05:58:36
More of the #18600.
Affected files ...
... //depot/perl/pad.c#14 edit
Differences ...
==== //depot/perl/pad.c#14 (text) ====
Index: perl/pad.c
--- perl/pad.c#13~18571~ Wed Jan 22 13:22:31 2003
+++ perl/pad.c Tue Jan 28 21:58:36 2003
@@ -1168,21 +1168,21 @@
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) {
End of Patch.
