Add new test file to MANIFEST. Fix tests for threaded builds.

p4raw-id: //depot/perl@34418

diff --git a/MANIFEST b/MANIFEST
index 186f1f7..03fdac7 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1442,6 +1442,7 @@ ext/XS/APItest/t/op.t             XS::APItest: tests for OP related APIs
 ext/XS/APItest/t/printf.t      XS::APItest extension
 ext/XS/APItest/t/push.t                XS::APItest extension
 ext/XS/APItest/t/rmagical.t    XS::APItest extension
+ext/XS/APItest/t/svpeek.t      XS::APItest extension
 ext/XS/APItest/t/svsetsv.t     Test behaviour of sv_setsv with/without PERL_CORE
 ext/XS/APItest/t/xs_special_subs_require.t     for require too
 ext/XS/APItest/t/xs_special_subs.t     Test that XS BEGIN/CHECK/INIT/END work

diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs
index b81e86d..adee30d 100644 (file)
--- a/ext/XS/APItest/APItest.xs
+++ b/ext/XS/APItest/APItest.xs
@@ -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