From: Roca Carrio, Ignasi (PO EP) <Ignasi.Roca@fujitsu-siemens.com>
Date: Fri, 14 Jun 2002 09:58:49 +0000 (+0200)
Subject: basic.t for EBCDIC platforms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8470d26fd83241f83ec22a57c8aca9a4a230d64b;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/Pod/t/basic.t b/lib/Pod/t/basic.t
index a61b4bf..eb6db54 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/;
         }