diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-10-29 14:28:02 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-30 13:49:51 +0000 |
| commit | 52c6645e676359618d976c084d5d3a0abc6fec7a (patch) | |
| tree | 5253a9ac573971e6934ebb5aaa24e342ed5fd093 | |
| parent | 12e95118684319626e8c14adbc923f701bf17da6 (diff) | |
| download | perl-52c6645e676359618d976c084d5d3a0abc6fec7a.tar.gz | |
Make malloc.c errors more useful
Message-Id: <200110300628.WAA11025@oregonnet.com>
p4raw-id: //depot/perl@12778
| -rw-r--r-- | malloc.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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"); |