From: Stas Bekman <stas@stason.org>
Date: Mon, 6 Oct 2003 21:19:53 +0000 (-0700)
Subject: [patch sv.c] improve "...free unref scalar" warning
X-Git-Tag: accepted/trunk/20130322.191538~22875
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d5dede0455edd65d2ac561aaf6cfdbdfc0d662ee;p=platform%2Fupstream%2Fperl.git

[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
--- 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)