Re: [PATCH] tests for hash assignment

Message-Id: <200112110148.fBB1mtl19148@crypt.compulink.co.uk>

p4raw-id: //depot/perl@13608

diff --git a/utf8.c b/utf8.c
index 3a5c1ec..7da1e5b 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -400,6 +400,7 @@ malformed:
        case UTF8_WARN_SHORT:
            Perl_sv_catpvf(aTHX_ sv, "(%d byte%s, need %d)",
                            curlen, curlen == 1 ? "" : "s", expectlen);
+           expectlen = curlen;         /* distance for caller to skip */
            break;
        case UTF8_WARN_OVERFLOW:
            Perl_sv_catpvf(aTHX_ sv, "(overflow at 0x%"UVxf", byte 0x%02x)",