perldelta: Regex sets are no longer experimental

[perl5.git] / numeric.c

diff --git a/numeric.c b/numeric.c
index b31c6a1..a9f7062 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -108,14 +108,14 @@ Perl_my_strtod(const char * const s, char **e)
 
     {
         NV result;
-        char ** end_ptr = NULL;
+        char * end_ptr;
 
-        *end_ptr = my_atof2(s, &result);
+        end_ptr = my_atof2(s, &result);
         if (e) {
-            *e = *end_ptr;
+            *e = end_ptr;
         }
 
-        if (! *end_ptr) {
+        if (! end_ptr) {
             result = 0.0;
         }
 
@@ -958,7 +958,7 @@ Perl_grok_infnan(pTHX_ const char** sp, const char* send)
         else
             return 0;
     }
-    /* NOTREACHED */
+    NOT_REACHED; /* NOTREACHED */
 
     /* We parsed something valid, s points after it, flags describes it */
   ok_check_space: