diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2000-11-13 06:49:40 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-14 01:13:54 +0000 |
| commit | cc366d4bfec1d12643c0fb8ca45074934bcc46bb (patch) | |
| tree | 4cea6dddce3edc7f288719bc10bd012e88a2c072 /toke.c | |
| parent | 54d9745e6c10264c5b7e27933a7a229432a2760e (diff) | |
| download | perl-cc366d4bfec1d12643c0fb8ca45074934bcc46bb.tar.gz | |
[ID 20001113.003] utf8_to_uv on malformed utf returns wrong values
Message-Id: <200011132249.eADMnek09679@garcia.efn.org>
p4raw-id: //depot/perl@7677
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1332,7 +1332,7 @@ S_scan_const(pTHX_ char *start) UV uv; uv = utf8_to_uv((U8*)s, send - s, &len, UTF8_CHECK_ONLY); - if (len == 1) { + if (len == (STRLEN)-1) { /* Illegal UTF8 (a high-bit byte), make it valid. */ char *old_pvx = SvPVX(sv); /* need space for one extra char (NOTE: SvCUR() not set here) */ |