This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 30661 could result in undefined variable
authorJerry D. Hedden <jdhedden@cpan.org>
Wed, 21 Mar 2007 12:47:52 +0000 (05:47 -0700)
committerNicholas Clark <nick@ccl4.org>
Wed, 21 Mar 2007 21:28:35 +0000 (21:28 +0000)
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

util.c

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