This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Comment why hexfp is set here, not earlier.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 26 Aug 2014 15:49:04 +0000 (11:49 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 26 Aug 2014 23:43:20 +0000 (19:43 -0400)
sv.c

diff --git a/sv.c b/sv.c
index fd7e9f5..7b7b009 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11740,6 +11740,8 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                 (void)Perl_frexp(nv, &i);
                 if (i == PERL_INT_MIN)
                     Perl_die(aTHX_ "panic: frexp");
+                /* Do not set hexfp earlier since we want to printf
+                 * Inf/NaN for Inf/NAN, not their hexfp. */
                 hexfp = isALPHA_FOLD_EQ(c, 'a');
                 if (UNLIKELY(hexfp)) {
                     /* Hexadecimal floating point: this size