From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 14 May 2005 23:16:50 +0000 (+0000)
Subject: Fix typo in DDEBUG_LEAKING_SCALARS flags output
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61b61456b5f13ab525d7cf66c129270fc006965d;p=p5sagit%2Fp5-mst-13.2.git

Fix typo in DDEBUG_LEAKING_SCALARS flags output

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

diff --git a/perl.c b/perl.c
index 4937c2a..c5302be 100644
--- a/perl.c
+++ b/perl.c
@@ -875,7 +875,7 @@ perl_destruct(pTHXx)
 	    for (sv = sva + 1; sv < svend; ++sv) {
 		if (SvTYPE(sv) != SVTYPEMASK) {
 		    PerlIO_printf(Perl_debug_log, "leaked: sv=0x%p"
-			" flags=0x08%"UVxf
+			" flags=0x%"UVxf
 			" refcnt=%"UVuf pTHX__FORMAT "\n"
 			"\tallocated at %s:%d %s %s%s\n",
 			sv, sv->sv_flags, sv->sv_refcnt pTHX__VALUE,