diff options
| author |   sthen <sthen@openbsd.org> | 2013-03-25 20:06:16 +0000 |
|---|---|---|
| committer | sthen <sthen@openbsd.org> | 2013-03-25 20:06:16 +0000 |
| commit | 898184e3e61f9129feb5978fad5a8c6865f00b92 (patch) | |
| tree | 56f32aefc1eed60b534611007c7856f82697a205 /gnu/usr.bin/perl/symbian/PerlBase.cpp | |
| parent | PGSHIFT -> PAGE_SHIFT (diff) | |
| download | wireguard-openbsd-898184e3e61f9129feb5978fad5a8c6865f00b92.tar.xz wireguard-openbsd-898184e3e61f9129feb5978fad5a8c6865f00b92.zip | |
import perl 5.16.3 from CPAN - worked on by Andrew Fresh and myself
Diffstat (limited to 'gnu/usr.bin/perl/symbian/PerlBase.cpp')
| -rw-r--r-- | gnu/usr.bin/perl/symbian/PerlBase.cpp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/symbian/PerlBase.cpp b/gnu/usr.bin/perl/symbian/PerlBase.cpp index 4162e577594..9312abeb55b 100644 --- a/gnu/usr.bin/perl/symbian/PerlBase.cpp +++ b/gnu/usr.bin/perl/symbian/PerlBase.cpp @@ -364,7 +364,9 @@ int CPerlBase::ConsoleRead(const int fd, char* buf, int n) #else dTHX; for (i = 0; i < nUtf8; i+= UTF8SKIP(pUtf8 + i)) { - unsigned long u = utf8_to_uvchr((U8*)(pUtf8 + i), 0); + unsigned long u = utf8_to_uvchr_buf((U8*)(pUtf8 + i), + (U8*)(pUtf8 + nUtf8), + 0); if (u > 0xFF) { iConsole->Printf(_L("(keycode > 0xFF)\n")); buf[i] = 0; @@ -401,7 +403,7 @@ int CPerlBase::ConsoleWrite(const int fd, const char* buf, int n) dTHX; if (is_utf8_string((U8*)buf, n)) { for (int i = 0; i < n; i += UTF8SKIP(buf + i)) { - TChar u = utf8_to_uvchr((U8*)(buf + i), 0); + TChar u = valid_utf8_to_uvchr((U8*)(buf + i), 0); iConsole->Printf(_L("%c"), u); wrote++; } |