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

diff --git a/util.c b/util.c
index c0510f3..16f3e02 100644 (file)
--- 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);
        }