X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Plugin.xs;h=cc839c73d04757161b4187e1c1c50ff960749464;hb=d0797f762a80a7ebad75dfd1c453dd2f7a6e38e8;hp=5e5452a5438d48d56b42fc7f60195d7756198287;hpb=86e082409eeb8df843893486f92273c0e46d7637;p=perl%2Fmodules%2Fre-engine-Plugin.git

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