[perl #118525] make it work on threaded builds
authorTony Cook <tony@develop-help.com>
Tue, 30 Jul 2013 04:41:56 +0000 (14:41 +1000)
committerTony Cook <tony@develop-help.com>
Tue, 30 Jul 2013 04:41:56 +0000 (14:41 +1000)
ext/B/B.xs

index 85e53cc..9bafb38 100644 (file)
@@ -1909,7 +1909,7 @@ GV(cv)
         GV *gv;
     CODE:
        gv = CvGV(cv);
-       ST(0) = gv ? make_sv_object((SV*)gv) : &PL_sv_undef;
+       ST(0) = gv ? make_sv_object(aTHX_ (SV*)gv) : &PL_sv_undef;
 
 #if PERL_VERSION > 17