From: Richard Soderberg <p5-authors@crystalflame.net>
Date: Mon, 29 Oct 2001 22:28:02 +0000 (-0800)
Subject: Make malloc.c errors more useful
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52c6645e676359618d976c084d5d3a0abc6fec7a;p=p5sagit%2Fp5-mst-13.2.git

Make malloc.c errors more useful
Message-Id: <200110300628.WAA11025@oregonnet.com>

p4raw-id: //depot/perl@12778
---

diff --git a/malloc.c b/malloc.c
index 6a2ff15..3a19be4 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1592,12 +1592,12 @@ Perl_mfree(void *mp)
 		{
 		    dTHX;
 		    if (!PERL_IS_ALIVE || !PL_curcop || ckWARN_d(WARN_MALLOC))
-			Perl_warner(aTHX_ WARN_MALLOC, "%s free() ignored",
+			Perl_warner(aTHX_ WARN_MALLOC, "%s free() ignored (RMAGIC, PERL_CORE)",
 				    ovp->ov_rmagic == RMAGIC - 1 ?
 				    "Duplicate" : "Bad");
 		}
 #else
-		warn("%s free() ignored",
+		warn("%s free() ignored (RMAGIC)",
 		    ovp->ov_rmagic == RMAGIC - 1 ? "Duplicate" : "Bad");
 #endif		
 #else
@@ -1605,7 +1605,7 @@ Perl_mfree(void *mp)
 		{
 		    dTHX;
 		    if (!PERL_IS_ALIVE || !PL_curcop || ckWARN_d(WARN_MALLOC))
-			Perl_warner(aTHX_ WARN_MALLOC, "%s", "Bad free() ignored");
+			Perl_warner(aTHX_ WARN_MALLOC, "%s", "Bad free() ignored (PERL_CORE)");
 		}
 #else
 		warn("%s", "Bad free() ignored");