Change 17234 by jhi@alpha on 2002/06/14 11:08:34
Subject: [PATCH] basic.t for EBCDIC platforms
From: "Roca Carrio, Ignasi (PO EP)" <[EMAIL PROTECTED]>
Date: Fri, 14 Jun 2002 09:58:49 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Pod/t/basic.t#10 edit
Differences ...
==== //depot/perl/lib/Pod/t/basic.t#10 (text) ====
Index: perl/lib/Pod/t/basic.t
--- perl/lib/Pod/t/basic.t#9~14459~ Sun Jan 27 18:28:10 2002
+++ perl/lib/Pod/t/basic.t Fri Jun 14 04:08:34 2002
@@ -98,9 +98,9 @@
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/;
}
End of Patch.
