diff options
| author | Roca Carrio, Ignasi (PO EP) <Ignasi.Roca@fujitsu-siemens.com> | 2002-06-14 11:58:49 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-14 11:08:34 +0000 |
| commit | 8470d26fd83241f83ec22a57c8aca9a4a230d64b (patch) | |
| tree | 68bee780e4b3f45e7b6a01f713b1caa85188e815 /lib | |
| parent | 5b48932ff6c319f0afe4a6116e91ea85061df4a5 (diff) | |
| download | perl-8470d26fd83241f83ec22a57c8aca9a4a230d64b.tar.gz | |
basic.t for EBCDIC platforms
From: "Roca Carrio, Ignasi (PO EP)" <Ignasi.Roca@fujitsu-siemens.com>
Message-ID: <318B95F90D8BD41194A5009027FD5FFBD7A3BF@madrid14.mad.fsc.net>
p4raw-id: //depot/perl@17234
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/t/basic.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Pod/t/basic.t b/lib/Pod/t/basic.t index a61b4bf07f..eb6db54f30 100644 --- a/lib/Pod/t/basic.t +++ b/lib/Pod/t/basic.t @@ -98,9 +98,9 @@ for (sort keys %translators) { close MASTER; close OUTPUT; - # OS/390 is EBCDIC, which uses a different character for ESC + # EBCDIC platforms use a different character for ESC # apparently. Try to convert so that the test still works. - if ($^O eq 'os390' && $_ eq 'Pod::Text::Termcap') { + if (ord('A') eq 193 && $_ eq 'Pod::Text::Termcap') { $output =~ tr/\033/\047/; } |