diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-27 01:02:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-27 01:02:21 +0000 |
| commit | 0ef00eb6701415c9339a7b643581bac5c191c738 (patch) | |
| tree | 3be022a26eb4da2840ecf48343fd20bf1da760bd /lib/bytes.t | |
| parent | 6e3f923e7662037ff257ef70ff708eb110d8f4e1 (diff) | |
| download | perl-0ef00eb6701415c9339a7b643581bac5c191c738.tar.gz | |
Be UTF-EBCDIC aware.
p4raw-id: //depot/perl@13299
Diffstat (limited to 'lib/bytes.t')
| -rw-r--r-- | lib/bytes.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/bytes.t b/lib/bytes.t index 05c748c5ac..dda2b87728 100644 --- a/lib/bytes.t +++ b/lib/bytes.t @@ -22,7 +22,11 @@ print ord($c) == 0x100 ? "ok 4\n" : "not ok 4\n"; { use bytes; - print ord($c) == 0xc4 ? "ok 5\n" : "not ok 5\n"; + if (ord('A') == 193) { + print ord($c) == 0x8c ? "ok 5\n" : "not ok 5\n"; + } else { + print ord($c) == 0xc4 ? "ok 5\n" : "not ok 5\n"; + } print length($c) == 2 ? "ok 6\n" : "not ok 6\n"; } |