diff options
author | David Mitchell <davem@iabyn.com> | 2011-02-06 21:09:57 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2011-02-06 21:34:44 +0000 |
commit | dd3f15c9a7d31e534b80c388d709c3722131d71e (patch) | |
tree | db6942bf3629da2e26967c0e5139d814f3020bf9 /pp_hot.c | |
parent | c95ca9b8cd1e9cb94201b96527b666a2e68bd781 (diff) | |
download | perl-dd3f15c9a7d31e534b80c388d709c3722131d71e.tar.gz |
pp_subst: do SvUTF8_on next to the SvPOK_only_UTF8
This should leave things functionally unchanged.
This is another step in making two branches of code more identical
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2320,11 +2320,11 @@ PP(pp_subst) mPUSHi((I32)iters); } (void)SvPOK_only_UTF8(TARG); + if (doutf8) + SvUTF8_on(TARG); TAINT_IF(rxtainted); SvSETMAGIC(TARG); SvTAINT(TARG); - if (doutf8) - SvUTF8_on(TARG); LEAVE_SCOPE(oldsave); RETURN; } |