X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=b248a19ae64d16867ece884615a2873c7e2b8a8f;hp=6203d97a4d74679471f6e733771c711aa63c5c2c;hb=3540bf4697eff4d70c752e166b7bb44fbd256535;hpb=15dd94862a140482eef5e8fd8c01defc7278bfe5

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);
 }