This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops. Fix threaded builds.
authorFather Chrysostomos <sprout@cpan.org>
Sat, 27 Sep 2014 16:20:20 +0000 (09:20 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 27 Sep 2014 16:20:20 +0000 (09:20 -0700)
pp.c
pp_pack.c

diff --git a/pp.c b/pp.c
index cf9f6b7..58169cb 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -3394,7 +3394,7 @@ PP(pp_chr)
     SV *top = POPs;
 
     SvGETMAGIC(top);
     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. */
         Perl_croak(aTHX_ "Cannot chr %"NVgf, SvNV(top));
     else {
         if (!IN_BYTES /* under bytes, chr(-1) eq chr(0xff), etc. */
index 039bd26..f11f444 100644 (file)
--- 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);
 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')
        const I32 c = TYPE_NO_MODIFIERS(datumtype);
        const NV nv = SvNV_nomg(sv);
        if (c == 'w')