From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 2 Feb 2002 02:08:42 +0000 (+0000)
Subject: EBCDIC: no hope to get the low 256 right in unifolding.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80bf4fef41cbd28e5329ef93733459f9342fffa7;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@14521
---

diff --git a/t/uni/fold.t b/t/uni/fold.t
index a068e65..936a690 100644
--- a/t/uni/fold.t
+++ b/t/uni/fold.t
@@ -9,12 +9,15 @@ my $CF = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
 					       "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];
 	}
     }