Replace #7084 with

Subject: Re: perl@7078 
Message-Id: <200009142109.RAA03425@leggy.zk3.dec.com>

p4raw-id: //depot/perl@7085

1 files changed, 2 insertions, 1 deletions

diff --git a/utf8.c b/utf8.c
index 6ae92bd0d9..d97a8b003d 100644
--- a/utf8.c
+++ b/utf8.c
@@ -299,7 +299,8 @@ Perl_utf8_to_bytes(pTHX_ U8* s, STRLEN *len)
     /* ensure valid UTF8 and chars < 256 before updating string */
     while (s < send) {
 	U8 c = *s++;
-        if ( (s >= send) || (*s & 0x80 && c > 0xc3)) {
+        if (c >= 0x80 &&
+	    ( (s >= send) || ((*s++ & 0xc0) != 0x80) || ((c & 0xfe) != 0xc2))) {
 	    *len = -1;
 	    return 0;    
 	}