abstract code for C<use Foo 1.23 @ary;> into a Perl_load_module()

[p5sagit/p5-mst-13.2.git] / perl.h

diff --git a/perl.h b/perl.h
index f601e14..d9dcbba 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3076,10 +3076,10 @@ typedef struct am_table_short AMTS;
 #endif /* !USE_LOCALE_NUMERIC */
 
 #if !defined(Atol) && defined(IV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG
-#   if !defined(Atol) && defined(HAS_STRTOLL)
 #    ifdef __hpux
-#       define strtoll __strtoll       /* secret handshake */
+#        define strtoll __strtoll      /* secret handshake */
 #    endif
+#   if !defined(Atol) && defined(HAS_STRTOLL)
 #       define Atol(s) strtoll(s, (char**)NULL, 10)
 #   endif
 #   if !defined(Atol) && defined(HAS_ATOLL)
@@ -3093,7 +3093,7 @@ typedef struct am_table_short AMTS;
 
 #if !defined(Strtoul) && defined(UV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG
 #    ifdef __hpux
-#       define strtoull __strtoull     /* secret handshake */
+#        define strtoull __strtoull    /* secret handshake */
 #    endif
 #    if !defined(Strtoul) && defined(HAS_STRTOULL)
 #       define Strtoul strtoull