diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-17 14:29:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-17 14:29:43 +0000 |
| commit | 06247ec9b2d635471a2d326f99349a10ec8953f9 (patch) | |
| tree | 75902758484be2728820504c6a1f85a6ba20031e /util.c | |
| parent | 3deb277dac3b5f1492bde2aa49ab00aeb793ba7b (diff) | |
| download | perl-06247ec9b2d635471a2d326f99349a10ec8953f9.tar.gz | |
Get -DLEAKTEST to compile (not necessarily to work, mind)
Subject: [ID 20000724.006] -DLEAKTEST problem
From: Gregory Martin Pfeil <pfeilgm@technomadic.org>
Date: Tue, 25 Jul 2000 00:36:32 -0500
Message-Id: <20000725003632.A26186@www.llamacom.com>
Reminder sent
Subject: [PATCH bleadperl@6647] -DLEAKTEST compile error
From: Hugo <hv@crypt.compulink.co.uk>
Date: Thu, 17 Aug 2000 15:23:42 +0100
Message-Id: <200008171423.PAA06749@crypt.compulink.co.uk>
p4raw-id: //depot/perl@6674
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1896,7 +1896,12 @@ Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args) PerlIO *serr = Perl_error_log; PerlIO_write(serr, message, msglen); #ifdef LEAKTEST - DEBUG_L(xstat()); + DEBUG_L(*message == '!' + ? (xstat(message[1]=='!' + ? (message[2]=='!' ? 2 : 1) + : 0) + , 0) + : 0); #endif (void)PerlIO_flush(serr); } |