From d5dede0455edd65d2ac561aaf6cfdbdfc0d662ee Mon Sep 17 00:00:00 2001
From: Stas Bekman <stas@stason.org>
Date: Mon, 6 Oct 2003 14:19:53 -0700
Subject: [PATCH] [patch sv.c] improve "...free unref scalar" warning
 Message-Id: <3F823EE9.4030103@stason.org>

p4raw-id: //depot/perl@21416
---
 sv.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sv.c b/sv.c
index 60e8874..0274fb4 100644
--- 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)
-- 
2.7.4