X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=indirect.xs;h=f3aa14b4ce3c11f009c3d7b79d6d7b3fa2b4bb5e;hb=f0156ba56d815d220b7f943d5f34cd726488c5db;hp=6203d97a4d74679471f6e733771c711aa63c5c2c;hpb=0df47659c67c30deca9fc06d6c7643a886ddb7d8;p=perl%2Fmodules%2Findirect.git

diff --git a/indirect.xs b/indirect.xs
index 6203d97..f3aa14b 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);
 }
@@ -513,6 +514,8 @@ STATIC OP *indirect_ck_entersub(pTHX_ OP *o) {
 
    if (hint) {
     dSP;
+    onamesv = sv_mortalcopy(onamesv);
+    mnamesv = sv_mortalcopy(mnamesv);
 
     ENTER;
     SAVETMPS;