EBCDIC: the character codes are different.

p4raw-id: //depot/perl@15440

diff --git a/lib/Pod/t/pod2html-lib.pl b/lib/Pod/t/pod2html-lib.pl
index de26389..c3d96ae 100644 (file)
--- a/lib/Pod/t/pod2html-lib.pl
+++ b/lib/Pod/t/pod2html-lib.pl
@@ -25,6 +25,9 @@ sub convert_n_test {
     # expected
     my $expect = <DATA>;
     $expect =~ s/\[PERLADMIN\]/$Config::Config{perladmin}/;
+    if (ord("A") == 193) { # EBCDIC.
+       $expect =~ s/item_mat%3c%21%3e/item_mat%4c%5a%6e/;
+    }
 
     # result
     open my $in, $outfile or die "cannot open $outfile: $!";