From: Adrian M. Enache <enache@rdslink.ro>
Date: Sat, 2 Aug 2003 01:50:40 +0000 (+0300)
Subject: Small nit to pad.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19a5c5129806e3fc5fc1a31e8f8f3ce298848b83;p=p5sagit%2Fp5-mst-13.2.git

Small nit to pad.c
Message-ID: <20030801225040.GB1281@ratsnest.hole>

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

diff --git a/pad.c b/pad.c
index dff9a7f..9673c0a 100644
--- a/pad.c
+++ b/pad.c
@@ -664,7 +664,7 @@ S_pad_findlex(pTHX_ char *name, CV* cv, U32 seq, int warn,
 		*out_name_sv = name_svp[offset]; /* return the namesv */
 		*out_flags = SvIVX(*out_name_sv);
 		DEBUG_Xv(PerlIO_printf(Perl_debug_log,
-		    "Pad findlex cv=0x%"UVxf" matched: offset=%ld flags=0x%x index=%lu\n",
+		    "Pad findlex cv=0x%"UVxf" matched: offset=%ld flags=0x%lx index=%lu\n",
 		    PTR2UV(cv), (long)offset, (unsigned long)*out_flags,
 			(unsigned long)SvNVX(*out_name_sv) 
 		));
@@ -720,7 +720,7 @@ S_pad_findlex(pTHX_ char *name, CV* cv, U32 seq, int warn,
 				    CvDEPTH(cv) ? CvDEPTH(cv) : 1])[offset];
 		    DEBUG_Xv(PerlIO_printf(Perl_debug_log,
 			"Pad findlex cv=0x%"UVxf" found lex=0x%"UVxf"\n",
-			PTR2UV(cv), *out_capture));
+			PTR2UV(cv), PTR2UV(*out_capture)));
 
 		    if (SvPADSTALE(*out_capture)) {
 			if (ckWARN(WARN_CLOSURE))