From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Thu, 25 Sep 2008 13:46:24 +0000 (+0000)
Subject: Add new test file to MANIFEST. Fix tests for threaded builds.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b1f73597ceedb71a97578d68e8f0eed8cc85e5a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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