Change 13608 by jhi@alpha on 2001/12/11 00:49:15
Subject: Re: [PATCH] tests for hash assignment
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Tue, 11 Dec 2001 01:48:55 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/utf8.c#122 edit
Differences ...
==== //depot/perl/utf8.c#122 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~ Mon Dec 10 18:00:06 2001
+++ perl/utf8.c Mon Dec 10 18:00:06 2001
@@ -400,6 +400,7 @@
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)",
End of Patch.
