From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 27 Sep 2014 18:11:17 +0000 (-0700)
Subject: pp_pack.c: Actually fix threaded builds
X-Git-Tag: v5.21.5~335
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/83388ae248e41b83a9d184d87247bf222b7d694d

pp_pack.c: Actually fix threaded builds
---

diff --git a/pp_pack.c b/pp_pack.c
index 704f951..97ddb27 100644
--- 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) {