Change 14521: EBCDIC: no hope to get the low 256 right in unifolding.

[Jarkko Hietaniemi]

Change 14521 by jhi@alpha on 2002/02/02 02:08:42

        EBCDIC: no hope to get the low 256 right in unifolding.

Affected files ...

.... //depot/perl/t/uni/fold.t#3 edit

Differences ...

==== //depot/perl/t/uni/fold.t#3 (text) ====
Index: perl/t/uni/fold.t
--- perl/t/uni/fold.t.~1~       Fri Feb  1 19:15:05 2002
+++ perl/t/uni/fold.t   Fri Feb  1 19:15:05 2002
@@ -9,12 +9,15 @@
                                               "lib", "unicore"),
                            "CaseFolding.txt");
 
+use constant EBCDIC => ord 'A' == 193;
+
 if (open(CF, $CF)) {
     my @CF;
 
     while (<CF>) {
         if (/^([0-9A-F]+); ([CFSI]); ((?:[0-9A-F]+)(?: [0-9A-F]+)*); \# (.+)/) {
             next if $2 eq 'S'; # we are going for 'F'ull case folding
+           next if EBCDIC && hex $1 < 0x100;
            push @CF, [$1, $2, $3, $4];
        }
     }
End of Patch.