diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-12-11 01:48:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-11 00:49:15 +0000 |
| commit | b31f83c2b51588ff44a060fb3cc25559043537f5 (patch) | |
| tree | eeef4bea147aafd2601a83567cfa377a6b526f88 /utf8.c | |
| parent | 1129fd022cb7a362c2ea03105d1a4b2127589595 (diff) | |
| download | perl-b31f83c2b51588ff44a060fb3cc25559043537f5.tar.gz | |
Re: [PATCH] tests for hash assignment
Message-Id: <200112110148.fBB1mtl19148@crypt.compulink.co.uk>
p4raw-id: //depot/perl@13608
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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)", |