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 (file)
--- 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,