strtoll works better ternary.

p4raw-id: //depot/cfgperl@4809

diff --git a/perl.h b/perl.h
index f0292f3..a6958f4 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2987,7 +2987,7 @@ typedef struct am_table_short AMTS;
 
 #if !defined(Atol) && defined(USE_LONG_LONG) && defined(HAS_LONG_LONG)
 #   if !defined(Atol) && defined(HAS_STRTOLL)
-#       define Atol(s) strtoll(s, (char*)0)
+#       define Atol(s) strtoll(s, (char*)0, 10)
 #   endif
 #   if !defined(Atol) && defined(HAS_ATOLL)
 #       define Atol atoll