summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorJerry D. Hedden <jdhedden@cpan.org>2007-03-21 05:47:52 -0700
committerNicholas Clark <nick@ccl4.org>2007-03-21 21:28:35 +0000
commit6460123ae692a9c25bc8c2253f12c8cf6f0ebdc0 (patch)
treee1e60e4cf19eb31181cb820903b9102c6db3d709 /util.c
parent4724db3847889abfdd323ce94d191e651f763036 (diff)
downloadperl-6460123ae692a9c25bc8c2253f12c8cf6f0ebdc0.tar.gz
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
Diffstat (limited to 'util.c')
-rw-r--r--util.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/util.c b/util.c
index edd51b540d..80e283b904 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