From 5b1f73597ceedb71a97578d68e8f0eed8cc85e5a Mon Sep 17 00:00:00 2001 From: "H.Merijn Brand" Date: Thu, 25 Sep 2008 13:46:24 +0000 Subject: [PATCH] Add new test file to MANIFEST. Fix tests for threaded builds. p4raw-id: //depot/perl@34418 --- MANIFEST | 1 + ext/XS/APItest/APItest.xs | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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 -- 2.7.4