From: M. J. T. Guy <mjtg@cus.cam.ac.uk>
Date: Tue, 11 Jul 2000 13:50:51 +0000 (+0100)
Subject: Re: "%#p" format specifier: document and test or not?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=46c1698f90ff4d1ca2d1f36008d72123e3f7907f;p=p5sagit%2Fp5-mst-13.2.git

Re: "%#p" format specifier: document and test or not?
Message-Id: <E13BzUx-00033c-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/cfgperl@6338
---

diff --git a/sv.c b/sv.c
index 1b39437..6ee91be 100644
--- a/sv.c
+++ b/sv.c
@@ -6133,6 +6133,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 	    /* INTEGERS */
 
 	case 'p':
+	    if (alt)
+		goto unknown;
 	    if (args)
 		uv = PTR2UV(va_arg(*args, void*));
 	    else
@@ -6429,7 +6431,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 		}
 	    }
 	    else if (svix < svmax)
-		sv_setuv(svargs[svix++], (UV)i);
+		sv_setuv_mg(svargs[svix++], (UV)i);
 	    continue;	/* not "break" */
 
 	    /* UNKNOWN */