From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 5 Mar 2000 05:37:22 +0000 (+0000)
Subject: dethinko
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d50a6e1574a86a873aedbf593904098295ab4900;p=p5sagit%2Fp5-mst-13.2.git

dethinko

p4raw-id: //depot/cfgperl@5536
---

diff --git a/toke.c b/toke.c
index 194766c..c5ed684 100644
--- 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? */