From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 21 Mar 2007 12:47:52 +0000 (-0700)
Subject: Change 30661 could result in undefined variable
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6460123ae692a9c25bc8c2253f12c8cf6f0ebdc0;p=p5sagit%2Fp5-mst-13.2.git

Change 30661 could result in undefined variable
From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <915076.64236.qm@web30212.mail.mud.yahoo.com>
Date: Wed, 21 Mar 2007 12:47:52 -0700 (PDT)

p4raw-id: //depot/perl@30670
---

diff --git a/util.c b/util.c
index edd51b5..80e283b 100644
--- a/util.c
+++ b/util.c
@@ -258,7 +258,7 @@ Perl_safesyscalloc(MEM_SIZE count, MEM_SIZE size)
 {
     dTHX;
     Malloc_t ptr;
-#ifdef DEBUGGING
+#if defined(DEBUGGING) || defined(HAS_64K_LIMIT) || defined(PERL_TRACK_MEMPOOL)
     const MEM_SIZE total_size = size * count
 #ifdef   PERL_TRACK_MEMPOOL
 	+ sTHX