Make names stored in the op map readonly

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index 6203d97a4d74679471f6e733771c711aa63c5c2c..b248a19ae64d16867ece884615a2873c7e2b8a8f 100644 (file)
--- 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);
 }