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

index 704f951..97ddb27 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2857,7 +2857,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
             while (len-- > 0) {
                NV anv;
                fromstr = NEXTFROM;
-               S_sv_check_infnan(fromstr, datumtype);
+               S_sv_check_infnan(aTHX_ fromstr, datumtype);
                anv = SvNV_nomg(fromstr);
 
                if (anv < 0) {