diff options
| author | Inaba Hiroto <inaba@st.rim.or.jp> | 2001-01-09 10:04:32 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-09 15:05:32 +0000 |
| commit | 9b877dbba0196ef7d4c6e2b0fcfc6e6f4955d526 (patch) | |
| tree | fd5d6ece1cff64d01e3ac0878ac10db3e006f5a5 /pp.c | |
| parent | 238af31e4e26cc72128680a0ed0480b2b2c76175 (diff) | |
| download | perl-9b877dbba0196ef7d4c6e2b0fcfc6e6f4955d526.tar.gz | |
One more patch for UTF8
Message-ID: <3A59E510.52BAB5B9@st.rim.or.jp>
UTF-8 fixes for 'x' and tr///.
p4raw-id: //depot/perl@8378
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1202,10 +1202,11 @@ PP(pp_repeat) else { /* Note: mark already snarfed by pp_list */ SV *tmpstr = POPs; STRLEN len; - bool isutf = DO_UTF8(tmpstr); + bool isutf; SvSetSV(TARG, tmpstr); SvPV_force(TARG, len); + isutf = DO_UTF8(TARG); if (count != 1) { if (count < 1) SvCUR_set(TARG, 0); |