diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-03-08 08:23:25 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-09 01:01:27 +0000 |
| commit | 3bd709b1a63d554f3d98d5394be78ed628eb46da (patch) | |
| tree | b8add48b769c1a6db079b5276eb469d4c75a1ef4 /toke.c | |
| parent | 538c41fbfff9c31ee1c8c40096f132b1ea496531 (diff) | |
| download | perl-3bd709b1a63d554f3d98d5394be78ed628eb46da.tar.gz | |
Re: Unicode/EBCDIC
Message-ID: <Pine.OSF.4.10.10103081617390.377472-100000@aspara.forte.com>
p4raw-id: //depot/perl@9082
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -7273,6 +7273,10 @@ vstring: "Integer overflow in decimal number"); } } + /* THIS IS EVIL */ + if (rev < 256) + rev = ASCII_TO_NATIVE(rev); + tmpend = uv_to_utf8(tmpbuf, rev); if (rev > revmax) revmax = rev; @@ -7289,11 +7293,11 @@ vstring: SvPOK_on(sv); SvREADONLY_on(sv); - if (revmax > 127) { - SvUTF8_on(sv); + /* if (revmax > 127) { */ + SvUTF8_on(sv); /* if (revmax < 256) sv_utf8_downgrade(sv, TRUE); - } + } */ } } break; |