Fix -"-e1".
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 20 Sep 2014 23:45:35 +0000 (19:45 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 21 Sep 2014 00:31:39 +0000 (20:31 -0400)
Was broken by ae776a2c.

numeric.c

index 5691120..c7f5fdd 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -831,7 +831,7 @@ Perl_grok_number_flags(pTHX_ const char *pv, STRLEN len, UV *valuep, U32 flags)
         return 0;
   }
 
-  if (s < send) {
+  if (s > d && s < send) {
     /* we can have an optional exponent part */
     if (isALPHA_FOLD_EQ(*s, 'e')) {
       s++;