From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 17 Aug 2000 14:29:43 +0000 (+0000)
Subject: Get -DLEAKTEST to compile (not necessarily to work, mind)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06247ec9b2d635471a2d326f99349a10ec8953f9;p=p5sagit%2Fp5-mst-13.2.git

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