In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/9604fbf0722bd97ca6031a263c50ad52b6633db7?hp=290f44ead05a5718e4f391f298e4d75e601393e5>
- Log -----------------------------------------------------------------
commit 9604fbf0722bd97ca6031a263c50ad52b6633db7
Author: Tony Cook <t...@develop-help.com>
Date: Wed Jun 14 09:42:31 2017 +1000
(perl #131526) don't go beyond the end of the NUL in my_atof2
Perl_my_atof2() calls GROK_NUMERIC_RADIX() to detect and skip past
a decimal point and then can increment the parse pointer (s) before
checking what it points at, so skipping the terminating NUL if the
decimal point is immediately before the NUL.
-----------------------------------------------------------------------
Summary of changes:
numeric.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/numeric.c b/numeric.c
index 6ea6968c27..5771907b2e 100644
--- a/numeric.c
+++ b/numeric.c
@@ -1485,9 +1485,9 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value)
else if (!seen_dp && GROK_NUMERIC_RADIX(&s, send)) {
seen_dp = 1;
if (sig_digits > MAX_SIG_DIGITS) {
- do {
+ while (isDIGIT(*s)) {
++s;
- } while (isDIGIT(*s));
+ }
break;
}
}
--
Perl5 Master Repository
