This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add new test file to MANIFEST. Fix tests for threaded builds.
[perl5.git] / ext / XS / APItest / APItest.xs
index b81e86d..adee30d 100644 (file)
@@ -856,7 +856,7 @@ DPeek (sv)
     SV   *sv
 
   PPCODE:
-    ST (0) = newSVpv (Perl_sv_peek (sv), 0);
+    ST (0) = newSVpv (Perl_sv_peek (aTHX_ sv), 0);
     XSRETURN (1);
 
 void