summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-08-17 14:29:43 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-08-17 14:29:43 +0000
commit06247ec9b2d635471a2d326f99349a10ec8953f9 (patch)
tree75902758484be2728820504c6a1f85a6ba20031e /util.c
parent3deb277dac3b5f1492bde2aa49ab00aeb793ba7b (diff)
downloadperl-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.c7
1 files changed, 6 insertions, 1 deletions
diff --git a/util.c b/util.c
index c0510f3872..16f3e02ee9 100644
--- a/util.c
+++ b/util.c
@@ -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);
}