X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=Plugin.xs;h=32b2eae9d96c5950e130f9092241b852f9d31369;hp=5e5452a5438d48d56b42fc7f60195d7756198287;hb=7fb1e66881f572d36b7c22624b7f09672170b990;hpb=74d4856719cde7c6dc286b0c3e5dc78112d2fbff

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