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.
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 25 Sep 2008 13:46:24 +0000 (13:46 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 25 Sep 2008 13:46:24 +0000 (13:46 +0000)
p4raw-id: //depot/perl@34418

MANIFEST
ext/XS/APItest/APItest.xs

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