From: Hugo van der Sanden <hv@crypt.org>
Date: Tue, 11 Dec 2001 01:48:55 +0000 (+0000)
Subject: Re: [PATCH] tests for hash assignment
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b31f83c2b51588ff44a060fb3cc25559043537f5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)",