summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2001-01-02 22:03:06 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-01-02 22:03:06 +0000
commita227d84de924cb415af5426df5a1096840ffba31 (patch)
treefe16d4527a498e69a57533a77240a882df1ca7bf /pp_hot.c
parent24c3c6f8bf13cbed1aee15c4432fb6e3d8078ff4 (diff)
downloadperl-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.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 9d4d6b0cad..24ae7bbdeb 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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;
}