[patch sv.c] improve "...free unref scalar" warning

Message-Id: <3F823EE9.4030103@stason.org>

p4raw-id: //depot/perl@21416

diff --git a/sv.c b/sv.c
index 60e8874..0274fb4 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -5594,7 +5594,9 @@ Perl_sv_free(pTHX_ SV *sv)
            return;
        }
        if (ckWARN_d(WARN_INTERNAL))
-           Perl_warner(aTHX_ packWARN(WARN_INTERNAL), "Attempt to free unreferenced scalar");
+           Perl_warner(aTHX_ packWARN(WARN_INTERNAL),
+                        "Attempt to free unreferenced scalar SV 0x%"UVxf,
+                PTR2UV(sv));
        return;
     }
     if (--(SvREFCNT(sv)) > 0)