]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Consting
authorVincent Pit <vince@profvince.com>
Mon, 11 Aug 2008 13:52:24 +0000 (15:52 +0200)
committerVincent Pit <vince@profvince.com>
Mon, 11 Aug 2008 13:52:24 +0000 (15:52 +0200)
indirect.xs

index 67cba846a98299092b75e3e919150c2c711ca843..d6ae98044d8f9c9c179ddd62cbcdaea98fe3bf57 100644 (file)
@@ -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;