Change 13449: Retract #13303, need rethink.

[Jarkko Hietaniemi]

Change 13449 by jhi@alpha on 2001/12/04 00:59:27

        Retract #13303, need rethink.

Affected files ...

.... //depot/perl/utf8.c#120 edit

Differences ...

==== //depot/perl/utf8.c#120 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~     Mon Dec  3 18:15:05 2001
+++ perl/utf8.c Mon Dec  3 18:15:05 2001
@@ -1228,8 +1228,6 @@
         HE *he;
 
         uv = utf8_to_uvchr(p, 0);
-        if (uv <= 0xff)
-            uv = NATIVE_TO_UTF(uv);
 
         if ((hv    = get_hv(special, FALSE)) &&
             (keysv = sv_2mortal(Perl_newSVpvf(aTHX_ "%04"UVXf, uv))) &&
@@ -1240,7 +1238,6 @@
              if (*lenp > 1 || UNI_IS_INVARIANT(c))
                   Copy(s, ustrp, *lenp, U8);
              else {
-                  c = UTF_TO_NATIVE(c);
                   /* something in the 0x80..0xFF range */
                   ustrp[0] = UTF8_EIGHT_BIT_HI(c);
                   ustrp[1] = UTF8_EIGHT_BIT_LO(c);
End of Patch.