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 | f29246f9900aa43be5591239a672e5e84f059cc2 (patch) | |
| tree | 4ba236a733e71c183f0076bd6466d8d2955e9d75 /pp_hot.c | |
| parent | da7ccedf8640ab35c48c946a404e90f104c59515 (diff) | |
| download | perl-f29246f9900aa43be5591239a672e5e84f059cc2.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)))) |