diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2004-01-12 20:19:37 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-12 10:10:43 +0000 |
| commit | e4803c42e84cae1aa5a416a4f8c6f80f7d37e49f (patch) | |
| tree | bf0b651be89874b5675c9071eeeb881ed8bf28b3 /doop.c | |
| parent | ee23bc3a3363698b42b1a9b84f636e7956b5fee0 (diff) | |
| download | perl-e4803c42e84cae1aa5a416a4f8c6f80f7d37e49f.tar.gz | |
Re: [perl #24846] [PATCH] Apparent utf8 bug in join() in 5.8.[012]
Message-Id: <20040112111007.EB69.BQW10602@nifty.com>
p4raw-id: //depot/perl@22117
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -670,6 +670,10 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s } sv_setpv(sv, ""); + /* sv_setpv retains old UTF8ness [perl #24846] */ + if (SvUTF8(sv)) + SvUTF8_off(sv); + if (PL_tainting && SvMAGICAL(sv)) SvTAINTED_off(sv); |