diff options
| author | Steve Hay <SteveHay@planit.com> | 2006-11-15 17:32:24 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-11-15 17:32:24 +0000 |
| commit | ff66e7137572bbed913f898be5a54a3383bf19d2 (patch) | |
| tree | 3a3004b0dd37ab05c39605e900107e4dcac9902f | |
| parent | 9f2f24b26d701cdde1ef2fd743269674644906fd (diff) | |
| download | perl-ff66e7137572bbed913f898be5a54a3383bf19d2.tar.gz | |
Fix tests added by #29248 and #29249
p4raw-id: //depot/perl@29284
| -rw-r--r-- | ext/XS/APItest/APItest.xs | 4 | ||||
| -rw-r--r-- | ext/XS/APItest/core_or_not.inc | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs index 8e9d2ffa55..827e362379 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 6a6a8796cd..8fa32349cb 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; |