From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Mon, 30 Oct 2000 21:09:55 +0000 (-0800)
Subject: Be more lenient on bad UTF-8 when doing bit arithmetics.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=287eef1b08ebb0e1197065c3c079b4a2d7ee452b;p=p5sagit%2Fp5-mst-13.2.git

Be more lenient on bad UTF-8 when doing bit arithmetics.

Subject: Re: [ID 20000918.005] ~ on wide chars
Message-ID: <jQl/5gzkgWYL092yn@efn.org>

(The ord() part of the patch skipped.)

p4raw-id: //depot/perl@7500
---

diff --git a/doop.c b/doop.c
index fa927c2..9fd7dfa 100644
--- a/doop.c
+++ b/doop.c
@@ -968,10 +968,10 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
 	switch (optype) {
 	case OP_BIT_AND:
 	    while (lulen && rulen) {
-		luc = utf8_to_uv((U8*)lc, lulen, &ulen, 0);
+		luc = utf8_to_uv((U8*)lc, lulen, &ulen, UTF8_ALLOW_ANY);
 		lc += ulen;
 		lulen -= ulen;
-		ruc = utf8_to_uv((U8*)rc, rulen, &ulen, 0);
+		ruc = utf8_to_uv((U8*)rc, rulen, &ulen, UTF8_ALLOW_ANY);
 		rc += ulen;
 		rulen -= ulen;
 		duc = luc & ruc;
@@ -983,10 +983,10 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
 	    break;
 	case OP_BIT_XOR:
 	    while (lulen && rulen) {
-		luc = utf8_to_uv((U8*)lc, lulen, &ulen, 0);
+		luc = utf8_to_uv((U8*)lc, lulen, &ulen, UTF8_ALLOW_ANY);
 		lc += ulen;
 		lulen -= ulen;
-		ruc = utf8_to_uv((U8*)rc, rulen, &ulen, 0);
+		ruc = utf8_to_uv((U8*)rc, rulen, &ulen, UTF8_ALLOW_ANY);
 		rc += ulen;
 		rulen -= ulen;
 		duc = luc ^ ruc;
@@ -995,10 +995,10 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
 	    goto mop_up_utf;
 	case OP_BIT_OR:
 	    while (lulen && rulen) {
-		luc = utf8_to_uv((U8*)lc, lulen, &ulen, 0);
+		luc = utf8_to_uv((U8*)lc, lulen, &ulen, UTF8_ALLOW_ANY);
 		lc += ulen;
 		lulen -= ulen;
-		ruc = utf8_to_uv((U8*)rc, rulen, &ulen, 0);
+		ruc = utf8_to_uv((U8*)rc, rulen, &ulen, UTF8_ALLOW_ANY);
 		rc += ulen;
 		rulen -= ulen;
 		duc = luc | ruc;