diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-02 02:08:42 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-02 02:08:42 +0000 |
| commit | 80bf4fef41cbd28e5329ef93733459f9342fffa7 (patch) | |
| tree | 1f6bbe06a9413714b475e63fc1d423e838d24231 /t/uni | |
| parent | 7d856a0e84612d1fa85a999764fe1e8f157b9a21 (diff) | |
| download | perl-80bf4fef41cbd28e5329ef93733459f9342fffa7.tar.gz | |
EBCDIC: no hope to get the low 256 right in unifolding.
p4raw-id: //depot/perl@14521
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/fold.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/uni/fold.t b/t/uni/fold.t index a068e6511a..936a690343 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]; } } |