From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 27 Sep 2014 16:20:20 +0000 (-0700)
Subject: Oops.  Fix threaded builds.
X-Git-Tag: v5.21.5~337
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/99f450ccc8a751e24ad7370e10cee6a4f56600c2

Oops.  Fix threaded builds.
---

diff --git a/pp.c b/pp.c
index cf9f6b7..58169cb 100644
--- a/pp.c
+++ b/pp.c
@@ -3394,7 +3394,7 @@ PP(pp_chr)
     SV *top = POPs;
 
     SvGETMAGIC(top);
-    if (UNLIKELY(Perl_isinfnansv(top)))
+    if (UNLIKELY(isinfnansv(top)))
         Perl_croak(aTHX_ "Cannot chr %"NVgf, SvNV(top));
     else {
         if (!IN_BYTES /* under bytes, chr(-1) eq chr(0xff), etc. */
diff --git a/pp_pack.c b/pp_pack.c
index 039bd26..f11f444 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2086,7 +2086,7 @@ static void
 S_sv_check_inf(pTHX_ SV *sv, I32 datumtype)
 {
     SvGETMAGIC(sv);
-    if (UNLIKELY(Perl_isinfnansv(sv))) {
+    if (UNLIKELY(isinfnansv(sv))) {
 	const I32 c = TYPE_NO_MODIFIERS(datumtype);
 	const NV nv = SvNV_nomg(sv);
 	if (c == 'w')