diff options
Diffstat (limited to 'lib/Pod/t/pod2html-lib.pl')
| -rw-r--r-- | lib/Pod/t/pod2html-lib.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Pod/t/pod2html-lib.pl b/lib/Pod/t/pod2html-lib.pl index de26389d56..c3d96aeefb 100644 --- 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: $!"; |