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

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);
 	}