X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=toke.c;h=b48577e9e2339c94a0afd0afd527b56bf915c4af;hb=c6b85e5d3668a89cd3bf3dfeefdf7162018b7166;hp=458e2585135fe406760dbe57806a6b3edba4a03e;hpb=3a6a83338346f08d1517e4a410cc7d1ebc4040ec;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/toke.c b/toke.c
index 458e258..b48577e 100644
--- a/toke.c
+++ b/toke.c
@@ -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) */