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 (file)
--- 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