From b4603d09e3b40cd371926f222a143c4adf8a7a38 Mon Sep 17 00:00:00 2001
From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com>
Date: Thu, 3 Mar 2022 23:09:05 +0900
Subject: numeric.c: Fix possible null pointer dereferences

Previous code apparently dereferences a variable initialized to NULL.
---
 numeric.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/numeric.c b/numeric.c
index de64ab479d..a9f70622de 100644
--- 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;
         }
 
-- 
cgit v1.2.1