From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 11 Sep 2000 09:57:33 +0000 (+0000)
Subject: Point fix for s/// on foreach (keys %xxx).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eca06228e735e9cbc213af2862732d91a7609dec;p=p5sagit%2Fp5-mst-13.2.git

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