diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-11 09:57:33 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-11 09:57:33 +0000 |
| commit | eca06228e735e9cbc213af2862732d91a7609dec (patch) | |
| tree | 4ba236a733e71c183f0076bd6466d8d2955e9d75 /pp_hot.c | |
| parent | 9811a09ccbe459f08959a12230024bdfb9a9977f (diff) | |
| download | perl-eca06228e735e9cbc213af2862732d91a7609dec.tar.gz | |
Point fix for s/// on foreach (keys %xxx).
p4raw-id: //depot/perl@7049
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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)))) |