From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 29 Jan 2003 05:58:36 +0000 (+0000)
Subject: More of the #18600.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9d09c080a413488f42684bbf284e91cf85411fb;p=p5sagit%2Fp5-mst-13.2.git

More of the #18600.

p4raw-id: //depot/perl@18601
---

diff --git a/pad.c b/pad.c
index 09dd568..2d716be 100644
--- a/pad.c
+++ b/pad.c
@@ -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) {