Re: Unicode/EBCDIC

[p5sagit/p5-mst-13.2.git] / toke.c

diff --git a/toke.c b/toke.c
index 4e90201..2bb9282 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -7273,6 +7273,10 @@ vstring:
                                            "Integer overflow in decimal number");
                        }
                    }
+                   /* THIS IS EVIL */
+                   if (rev < 256) 
+                       rev = ASCII_TO_NATIVE(rev);
+
                    tmpend = uv_to_utf8(tmpbuf, rev);
                    if (rev > revmax)
                        revmax = rev;
@@ -7289,11 +7293,11 @@ vstring:
 
                SvPOK_on(sv);
                SvREADONLY_on(sv);
-               if (revmax > 127) {
-                   SvUTF8_on(sv);
+               /* if (revmax > 127) { */
+                   SvUTF8_on(sv); /*
                    if (revmax < 256)
                      sv_utf8_downgrade(sv, TRUE);
-               }
+               } */
            }
        }
        break;