Only one successful exit from grok_infnan().

1 files changed, 2 insertions, 7 deletions

diff --git a/numeric.c b/numeric.c
index 355980acea..f3454894b6 100644
--- a/numeric.c
+++ b/numeric.c
@@ -658,9 +658,6 @@ Perl_grok_infnan(const char** sp, const char* send)
             flags |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT;
         } else
             return 0;
-
-        *sp = s;
-        return flags;
     }
     else {
         /* NAN */
@@ -686,12 +683,10 @@ Perl_grok_infnan(const char** sp, const char* send)
         }
         else
             return 0;
-
-        *sp = s;
-        return flags;
     }
 
-    return 0;
+    *sp = s;
+    return flags;
 }
 
 static const UV uv_max_div_10 = UV_MAX / 10;