Re: Fix linker error on Win32

Message-ID: <9b18b3110611150136n7c90d187t5cf49847f153a537@mail.gmail.com>

p4raw-id: //depot/perl@29277

diff --git a/ext/XS/APItest/core_or_not.inc b/ext/XS/APItest/core_or_not.inc
index 0824764..6a6a879 100644 (file)
--- a/ext/XS/APItest/core_or_not.inc
+++ b/ext/XS/APItest/core_or_not.inc
@@ -17,7 +17,7 @@ CAT2(sv_setsv_cow_hashkey_, SUFFIX) (pTHX) {
 
     if(!SvREADONLY(source) && !SvFAKE(source)) {
        SvREFCNT_dec(source);
-       croak ("Creating a shared hash key scalar failed when "
+       Perl_croak(aTHX_ "Creating a shared hash key scalar failed when "
               STRINGIFY(SUFFIX) " got flags %"UVxf, (UV)SvFLAGS(source));
     }