[perl #12285] Fix str vs num inf/nan treatment

sprintf, pack and chr were treating 0+"Inf" and "Inf" differently,
even though they have the same string and numeric values.

pack was also croaking for 0+"Inf" passed to a string format.

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index f67b7ccd44..cf9f6b7e06 100644
--- a/pp.c
+++ b/pp.c
@@ -3394,7 +3394,7 @@ PP(pp_chr)
     SV *top = POPs;
 
     SvGETMAGIC(top);
-    if (SvNOK(top) && UNLIKELY(Perl_isinfnan(SvNV(top))))
+    if (UNLIKELY(Perl_isinfnansv(top)))
         Perl_croak(aTHX_ "Cannot chr %"NVgf, SvNV(top));
     else {
         if (!IN_BYTES /* under bytes, chr(-1) eq chr(0xff), etc. */