X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=d6ae98044d8f9c9c179ddd62cbcdaea98fe3bf57;hp=67cba846a98299092b75e3e919150c2c711ca843;hb=4ab95f0002e77f5f32d6814b3b34ca03ff11ee2d;hpb=c579771bace4977e6f2c26a5e5e29740a1aa4553

diff --git a/indirect.xs b/indirect.xs
index 67cba84..d6ae980 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -50,7 +50,7 @@ STATIC void indirect_map_store(pTHX_ const OP *o, const char *src, SV *sv) {
   SvREFCNT_dec(val);
 }
 
-STATIC const char *indirect_map_fetch(pTHX_ const OP *o, SV **name) {
+STATIC const char *indirect_map_fetch(pTHX_ const OP *o, SV ** const name) {
 #define indirect_map_fetch(O, S) indirect_map_fetch(aTHX_ (O), (S))
  char buf[32];
  SV **val;