This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typo in DDEBUG_LEAKING_SCALARS flags output
authorDave Mitchell <davem@fdisolutions.com>
Sat, 14 May 2005 23:16:50 +0000 (23:16 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 14 May 2005 23:16:50 +0000 (23:16 +0000)
p4raw-id: //depot/perl@24468

perl.c

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"
            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,
                        " refcnt=%"UVuf pTHX__FORMAT "\n"
                        "\tallocated at %s:%d %s %s%s\n",
                        sv, sv->sv_flags, sv->sv_refcnt pTHX__VALUE,