Actually fix GH #17370

I only added a test, but not the change in 9f16475. The test passes except when run under address sanitizer or valgrind.
Perl · Dec 17, 2019 · dca9f61 · dca9f61
1 parent da255c7
commit dca9f61
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/numeric.c b/numeric.c
@@ -780,6 +780,9 @@ Perl_grok_infnan(pTHX_ const char** sp, const char* send)
             s++;
 
             flags |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT;
+            if (s == send) {
+                return flags;
+            }
 
             /* NaN can be followed by various stuff (NaNQ, NaNS), but
              * there are also multiple different NaN values, and some