Re: ebcdic <-> ascii tables interjected in uv <-> utf8 considered harmful

Message-ID: <20001208133331.A11535@deep-dark-truthful-mirror.perlhacker.org>

(The pp_hot part needed a rewrite.)

p4raw-id: //depot/perl@8039

1 files changed, 3 insertions, 8 deletions

diff --git a/utf8.c b/utf8.c
index 7a652b43a4..e9c438600c 100644
--- a/utf8.c
+++ b/utf8.c
@@ -506,14 +506,9 @@ Perl_utf8_to_bytes(pTHX_ U8* s, STRLEN *len)
 
     d = s = save;
     while (s < send) {
-        if (*s < 0x80) {
-	    *d++ = *s++;
-	}
-        else {
-            STRLEN ulen;
-            *d++ = (U8)utf8_to_uv_simple(s, &ulen);
-            s += ulen;
-        }
+        STRLEN ulen;
+        *d++ = (U8)utf8_to_uv_simple(s, &ulen);
+        s += ulen;
     }
     *d = '\0';
     *len = d - save;