In perl.git, the branch khw/ebcdic has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ec0e0976d5b24067a1d7a1b2a47f551cc9f7b367?hp=3ca366379544242374d6de6bdb7be3e09252418e>
- Log ----------------------------------------------------------------- commit ec0e0976d5b24067a1d7a1b2a47f551cc9f7b367 Author: Karl Williamson <[email protected]> Date: Mon Apr 1 12:56:32 2013 -0600 XXX rebase: utf8.c: Fix valid_utf8_to_uvchr ----------------------------------------------------------------------- Summary of changes: utf8.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/utf8.c b/utf8.c index 5788b6e..c7561b6 100644 --- a/utf8.c +++ b/utf8.c @@ -943,7 +943,7 @@ Perl_valid_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen) { UV expectlen = UTF8SKIP(s); const U8* send = s + expectlen; - UV uv = NATIVE_UTF8_TO_I8(*s); + UV uv = *s; PERL_ARGS_ASSERT_VALID_UTF8_TO_UVCHR; -- Perl5 Master Repository
