This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dethinko
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 5 Mar 2000 05:37:22 +0000 (05:37 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 5 Mar 2000 05:37:22 +0000 (05:37 +0000)
p4raw-id: //depot/cfgperl@5536

toke.c

diff --git a/toke.c b/toke.c
index 194766c..c5ed684 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -6683,13 +6683,7 @@ 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 */
-    IV tryiv;                          /* used to see if it can be an IV */
     UV tryuv;                          /* used to see if it can be an UV */
-#if ( defined(USE_64_BIT_INT) && \
-       (!defined(HAS_STRTOLL)|| !defined(HAS_STRTOULL))) || \
-    (!defined(USE_64_BIT_INT) && \
-        (!defined(HAS_STRTOL) || !defined(HAS_STRTOUL)))
-#endif
     NV value;                          /* number read, as a double */
     SV *sv = Nullsv;                   /* place to put the converted number */
     bool floatit;                      /* boolean: int or float? */