From: Vincent Pit <vince@profvince.com>
Date: Thu, 7 May 2009 22:40:47 +0000 (+0200)
Subject: Make names stored in the op map readonly
X-Git-Tag: v0.13~12
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=3540bf4697eff4d70c752e166b7bb44fbd256535

Make names stored in the op map readonly
---

diff --git a/indirect.xs b/indirect.xs
index 6203d97..b248a19 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -292,6 +292,7 @@ STATIC void indirect_map_store(pTHX_ const OP *o, const char *src, SV *sv) {
  SvUVX(val) = PTR2UV(src);
  SvIOK_on(val);
  SvIsUV_on(val);
+ SvREADONLY_on(val);
 
  ptable_store(MY_CXT.map, o, val);
 }