diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-02 22:03:06 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-02 22:03:06 +0000 |
commit | a227d84de924cb415af5426df5a1096840ffba31 (patch) | |
tree | fe16d4527a498e69a57533a77240a882df1ca7bf /pp_hot.c | |
parent | 24c3c6f8bf13cbed1aee15c4432fb6e3d8078ff4 (diff) | |
download | perl-a227d84de924cb415af5426df5a1096840ffba31.tar.gz |
Turn SvUTF8 off if not required in pp_chr and pp_stringify.
p4raw-id: //depot/perlio@8298
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -78,6 +78,8 @@ PP(pp_stringify) sv_setpvn(TARG,s,len); if (SvUTF8(TOPs) && !IN_BYTE) SvUTF8_on(TARG); + else + SvUTF8_off(TARG); SETTARG; RETURN; } |