diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-08-03 21:00:05 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-08-03 22:26:10 +0000 |
| commit | 6214ab63745c28e26e752f88d98bf89671cabc77 (patch) | |
| tree | 877e9ff1583c080792db2148f4e6f12db37504ca /pp.c | |
| parent | 7eb03357e6e31f7e9e759242eb85abc02adea5cf (diff) | |
| download | perl-6214ab63745c28e26e752f88d98bf89671cabc77.tar.gz | |
Re: [perl #23207] persistant sideffect involving bitwise xor and substr
Message-ID: <20030803150005.GA1319@ratsnest.hole>
p4raw-id: //depot/perl@20462
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -3111,6 +3111,8 @@ PP(pp_substr) sv_upgrade(TARG, SVt_PVLV); sv_magic(TARG, Nullsv, PERL_MAGIC_substr, Nullch, 0); } + else + (void)SvOK_off(TARG); LvTYPE(TARG) = 'x'; if (LvTARG(TARG) != sv) { |