From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 11 Mar 2000 19:50:06 +0000 (+0000)
Subject: fix Strtoul() misdefinition is change#5661
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=388d3c036745024b7ca2276efc330e632cfbcaa9;p=p5sagit%2Fp5-mst-13.2.git

fix Strtoul() misdefinition is change#5661

p4raw-link: @5661 on //depot/cfgperl: 55eb892c8d1c2d0317b54696f56f6afb30a62cd1

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

diff --git a/perl.h b/perl.h
index 2ce9084..ec635f6 100644
--- a/perl.h
+++ b/perl.h
@@ -3096,18 +3096,18 @@ typedef struct am_table_short AMTS;
 #        define strtoull __strtoull	/* secret handshake */
 #    endif
 #    if !defined(Strtoul) && defined(HAS_STRTOULL)
-#       define Strtoul strtoull
+#       define Strtoul	strtoull
 #    endif
 #endif
 /* is there atouq() anywhere? */
 #if !defined(Strtoul) && defined(HAS_STRTOUQ)
-#   define Strtoul strtouq
+#   define Strtoul	strtouq
 #endif
 #if !defined(Strtoul)
 #   define Strtoul strtoul /* we assume strtoul being available anywhere */
 #endif
 #ifndef Atoul 
-#   define Atoul Strtoul
+#   define Atoul(s) Strtoul(s, (char**)NULL, 10)
 #endif
 
 #if !defined(PERLIO_IS_STDIO) && defined(HASATTRIBUTE)