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 (file)
--- 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 (file)
--- 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;