diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-22 21:51:48 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-23 13:04:10 +0000 |
| commit | e294cc5d7355a434d6b698c777674e1b7d4d4583 (patch) | |
| tree | 7149b707cac3dbe5e8fb910a0b8ae2f73b451bfe /utf8.c | |
| parent | 8c06321bcee4c3ffba180fe51c1785ca0a328fdd (diff) | |
| download | perl-e294cc5d7355a434d6b698c777674e1b7d4d4583.tar.gz | |
z/OS: pp_sys.c, reg*.c, toke.c, utf8.c
Message-ID: <44C24994.6020008@iki.fi>
p4raw-id: //depot/perl@28607
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -896,7 +896,11 @@ Perl_utf16_to_utf8(pTHX_ U8* p, U8* d, I32 bytelen, I32 *newlen) UV uv = (p[0] << 8) + p[1]; /* UTF-16BE */ p += 2; if (uv < 0x80) { +#ifdef EBCDIC + *d++ = UNI_TO_NATIVE(uv); +#else *d++ = (U8)uv; +#endif continue; } if (uv < 0x800) { |