From: Vincent Pit <vince@profvince.com>
Date: Mon, 11 Aug 2008 13:52:24 +0000 (+0200)
Subject: Consting
X-Git-Tag: v0.02~7
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=4ab95f0002e77f5f32d6814b3b34ca03ff11ee2d

Consting
---

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;