Fix for 20001101.004, at least for the memleak part.

[p5sagit/p5-mst-13.2.git] / lib / Pod / t / basic.t

diff --git a/lib/Pod/t/basic.t b/lib/Pod/t/basic.t
index a87cb8b..eb6db54 100644 (file)
--- a/lib/Pod/t/basic.t
+++ b/lib/Pod/t/basic.t
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: basic.t,v 1.3 2001/11/26 09:24:37 eagle Exp $
+# $Id: basic.t,v 1.4 2002/01/28 02:56:19 eagle Exp $
 #
 # basic.t -- Basic tests for podlators.
 #
@@ -97,6 +97,13 @@ for (sort keys %translators) {
         my $output = <OUTPUT>;
         close MASTER;
         close OUTPUT;
+
+        # EBCDIC platforms use a different character for ESC
+        # apparently.  Try to convert so that the test still works.
+        if (ord('A') eq 193 && $_ eq 'Pod::Text::Termcap') {
+            $output =~ tr/\033/\047/;
+        }
+
         if ($master eq $output) {
             print "ok $n\n";
             unlink "out.$translators{$_}";