In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/8c1ed856816d90f9c4ab9da34ff97b9caf4d29c4?hp=3160b44a75aed79c4961134279bf776ca5bff28b>
- Log -----------------------------------------------------------------
commit 8c1ed856816d90f9c4ab9da34ff97b9caf4d29c4
Author: Andy Broad <a...@broad.ology.org.uk>
Date: Tue Aug 25 20:04:01 2015 -0400
The #ifdef NV_MIN_EXP straddled the if () braces.
Though non-straddling, make the NV_MAX_EXP case identical.
-----------------------------------------------------------------------
Summary of changes:
toke.c | 18 +++++++-----------
1 file changed, 7 insertions(+), 11 deletions(-)
diff --git a/toke.c b/toke.c
index 9e332fc..0cbe1c0 100644
--- a/toke.c
+++ b/toke.c
@@ -10347,24 +10347,20 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
hexfp_exp += *h - '0';
#ifdef NV_MIN_EXP
if (negexp
- && -hexfp_exp < NV_MIN_EXP - 1)
- {
+ && -hexfp_exp < NV_MIN_EXP - 1) {
Perl_ck_warner(aTHX_
packWARN(WARN_OVERFLOW),
"Hexadecimal float:
exponent underflow");
-#endif
break;
}
- else {
+#endif
#ifdef NV_MAX_EXP
- if (!negexp
- && hexfp_exp > NV_MAX_EXP - 1)
- {
- Perl_ck_warner(aTHX_
packWARN(WARN_OVERFLOW),
+ if (!negexp
+ && hexfp_exp > NV_MAX_EXP - 1) {
+ Perl_ck_warner(aTHX_
packWARN(WARN_OVERFLOW),
"Hexadecimal float:
exponent overflow");
- break;
- }
-#endif
+ break;
}
+#endif
}
h++;
}
--
Perl5 Master Repository
