From: Steve Hay <SteveHay@planit.com>
Date: Wed, 15 Nov 2006 17:32:24 +0000 (+0000)
Subject: Fix tests added by #29248 and #29249
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff66e7137572bbed913f898be5a54a3383bf19d2;p=p5sagit%2Fp5-mst-13.2.git

Fix tests added by #29248 and #29249

p4raw-id: //depot/perl@29284
---

diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs
index 8e9d2ff..827e362 100644
--- a/ext/XS/APItest/APItest.xs
+++ b/ext/XS/APItest/APItest.xs
@@ -51,6 +51,10 @@ my_cxt_setsv_p(SV* sv _pMY_CXT)
 /* from exception.c */
 int exception(int);
 
+/* from core_or_not.inc */
+bool sv_setsv_cow_hashkey_core(void);
+bool sv_setsv_cow_hashkey_notcore(void);
+
 /* A routine to test hv_delayfree_ent
    (which itself is tested by testing on hv_free_ent  */
 
diff --git a/ext/XS/APItest/core_or_not.inc b/ext/XS/APItest/core_or_not.inc
index 6a6a879..8fa3234 100644
--- a/ext/XS/APItest/core_or_not.inc
+++ b/ext/XS/APItest/core_or_not.inc
@@ -10,7 +10,8 @@
 #endif
 
 bool
-CAT2(sv_setsv_cow_hashkey_, SUFFIX) (pTHX) {
+CAT2(sv_setsv_cow_hashkey_, SUFFIX) () {
+    dTHX;
     SV *source = newSVpvn_share("pie", 3, 0);
     SV *destination = newSV(0);
     bool result;