Point fix for s/// on foreach (keys %xxx).

p4raw-id: //depot/perl@7049

diff --git a/pp_hot.c b/pp_hot.c
index 6f0fd7c..ba81805 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1785,6 +1785,8 @@ PP(pp_subst)
        TARG = DEFSV;
        EXTEND(SP,1);
     }
+    if (SvFAKE(TARG) && SvREADONLY(TARG))
+       sv_force_normal(TARG);
     if (SvREADONLY(TARG)
        || (SvTYPE(TARG) > SVt_PVLV
            && !(SvTYPE(TARG) == SVt_PVGV && SvFAKE(TARG))))