From: Yves Orton <demerphq@gmail.com>
Date: Wed, 15 Nov 2006 10:36:34 +0000 (+0100)
Subject: Re: Fix linker error on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2fcd17ed00af39b65214f1d829f6efee899bedb1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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));
     }