diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-23 17:09:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-23 17:09:17 +0000 |
| commit | 53f109d64552578b0c4530d4506e1d95566f5f0f (patch) | |
| tree | 4f1a9def89f4b240cf6b6817d3ea6b5132d66b79 /lib/Pod | |
| parent | afbdaceadfb4213678022d323a8d1b3cea560a4a (diff) | |
| download | perl-53f109d64552578b0c4530d4506e1d95566f5f0f.tar.gz | |
EBCDIC: the character codes are different.
p4raw-id: //depot/perl@15440
Diffstat (limited to 'lib/Pod')
| -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: $!"; |