From: Ævar Arnfjörð Bjarmason <avar@cpan.org>
Date: Tue, 19 Aug 2008 11:42:06 +0000 (+0000)
Subject: RT#31635: add aTHX_ to Perl_croak call so it'll run on threaded perls
X-Git-Tag: v0.05~6
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=56513ca501ad38f5358ca5f3ee8bdb5ba61b4639;p=perl%2Fmodules%2Fre-engine-Plugin.git

RT#31635: add aTHX_ to Perl_croak call so it'll run on threaded perls
---

diff --git a/Plugin.xs b/Plugin.xs
index 5e5452a..32b2eae 100644
--- a/Plugin.xs
+++ b/Plugin.xs
@@ -212,7 +212,7 @@ Plugin_free(pTHX_ REGEXP * const rx)
 void *
 Plugin_dupe(pTHX_ const REGEXP * rx, CLONE_PARAMS *param)
 {
-    Perl_croak("dupe not supported yet");
+    Perl_croak(aTHX_ "dupe not supported yet");
     return rx->pprivate;
 }