From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Mar 2002 17:09:17 +0000 (+0000)
Subject: EBCDIC: the character codes are different.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53f109d64552578b0c4530d4506e1d95566f5f0f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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: $!";