This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reformat the fearful cpp expression to be a little bit less fearful.
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index 16e3788..993f091 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -6684,8 +6684,10 @@ Perl_scan_num(pTHX_ char *start)
     register char *s = start;          /* current position in buffer */
     register char *d;                  /* destination in temp buffer */
     register char *e;                  /* end of temp buffer */
     register char *s = start;          /* current position in buffer */
     register char *d;                  /* destination in temp buffer */
     register char *e;                  /* end of temp buffer */
-#if (defined(USE_64_BIT_INT) && (!defined(HAS_STRTOLL)|| !defined(HAS_STRTOULL))) || \
-   (!defined(USE_64_BIT_INT) && (!defined(HAS_STRTOL) || !defined(HAS_STRTOUL)))
+#if ( defined(USE_64_BIT_INT) && \
+       (!defined(HAS_STRTOLL)|| !defined(HAS_STRTOULL))) || \
+    (!defined(USE_64_BIT_INT) && \
+        (!defined(HAS_STRTOL) || !defined(HAS_STRTOUL)))
     IV tryiv;                          /* used to see if it can be an IV */
 #endif
     NV value;                          /* number read, as a double */
     IV tryiv;                          /* used to see if it can be an IV */
 #endif
     NV value;                          /* number read, as a double */