summaryrefslogtreecommitdiff
path: root/malloc.c
diff options
context:
space:
mode:
authorRichard Soderberg <p5-authors@crystalflame.net>2001-10-29 14:28:02 -0800
committerJarkko Hietaniemi <jhi@iki.fi>2001-10-30 13:49:51 +0000
commit52c6645e676359618d976c084d5d3a0abc6fec7a (patch)
tree5253a9ac573971e6934ebb5aaa24e342ed5fd093 /malloc.c
parent12e95118684319626e8c14adbc923f701bf17da6 (diff)
downloadperl-52c6645e676359618d976c084d5d3a0abc6fec7a.tar.gz
Make malloc.c errors more useful
Message-Id: <200110300628.WAA11025@oregonnet.com> p4raw-id: //depot/perl@12778
Diffstat (limited to 'malloc.c')
-rw-r--r--malloc.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/malloc.c b/malloc.c
index 6a2ff15547..3a19be4a48 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");