From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 27 Feb 2008 09:06:47 +0000 (+0000)
Subject: Fix preprocessor syntax
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cfe5289891381086cbb4d57f93a59ba02c2cd726;p=p5sagit%2Fp5-mst-13.2.git

Fix preprocessor syntax

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

diff --git a/perl.h b/perl.h
index aec1e26..736d365 100644
--- a/perl.h
+++ b/perl.h
@@ -4073,9 +4073,11 @@ struct perl_memory_debug_header {
 
 #ifdef MYMALLOC
 #  define Perl_safesysmalloc_size(where)	Perl_malloced_size(where)
-#else if defined(HAS_MALLOC_SIZE)
-#  define Perl_safesysmalloc_size(where)			\
-	(malloc_size(((char *)(where)) - sTHX) - sTHX)
+#else
+#   ifdef HAS_MALLOC_SIZE
+#	define Perl_safesysmalloc_size(where)			\
+	    (malloc_size(((char *)(where)) - sTHX) - sTHX)
+#   endif
 #endif
 
 typedef int (CPERLscope(*runops_proc_t)) (pTHX);