This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Smoke [5.9.2] 23634 FAIL(F) openbsd 3.6 (i386/1 cpu) [PATCH]
authorGisle Aas <gisle@aas.no>
Sat, 11 Dec 2004 02:57:19 +0000 (18:57 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 13 Dec 2004 08:39:34 +0000 (08:39 +0000)
Message-ID: <lrr7lxje5s.fsf_-_@caliper.activestate.com>

p4raw-id: //depot/perl@23640

utf8.c

diff --git a/utf8.c b/utf8.c
index 7571e29..c6276c7 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -432,7 +432,7 @@ Perl_utf8n_to_uvuni(pTHX_ U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
        if (!(uv > ouv)) {
            /* These cannot be allowed. */
            if (uv == ouv) {
-               if (!(flags & UTF8_ALLOW_LONG)) {
+               if (expectlen != 13 && !(flags & UTF8_ALLOW_LONG)) {
                    warning = UTF8_WARN_LONG;
                    goto malformed;
                }