diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-14 02:10:27 +0300 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-07-13 20:18:59 +0000 |
| commit | cf0d1c66a0d97cdcc6938d91401fa36b9b5a67ac (patch) | |
| tree | 65674c4cd5d583a2c89833405ac421a19c1387be /lib/CGI | |
| parent | 2f3efc978ada94e3718bd6f3a25b06cd1d13b6f8 (diff) | |
| download | perl-cf0d1c66a0d97cdcc6938d91401fa36b9b5a67ac.tar.gz | |
z/OS: CPAN-ized ext/ and lib/
Message-ID: <44B6A8B3.5070605@iki.fi>
p4raw-id: //depot/perl@28568
Diffstat (limited to 'lib/CGI')
| -rw-r--r-- | lib/CGI/t/util-58.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/CGI/t/util-58.t b/lib/CGI/t/util-58.t index 70a618917c..4751b4cb2e 100644 --- a/lib/CGI/t/util-58.t +++ b/lib/CGI/t/util-58.t @@ -11,6 +11,11 @@ BEGIN { use Test::More tests => 2; use_ok("CGI::Util"); my $uri = "\x{5c0f}\x{98fc} \x{5f3e}.txt"; # KOGAI, Dan, in Kanji -is(CGI::Util::escape($uri), "%E5%B0%8F%E9%A3%BC%20%E5%BC%BE.txt", - "# Escape string with UTF-8 flag"); +if (ord('A') == 193) { # EBCDIC. + is(CGI::Util::escape($uri), "%FC%C3%A0%EE%F9%E5%E7%F8%20%FC%C3%C7%CA.txt", + "# Escape string with UTF-8 (UTF-EBCDIC) flag"); +} else { + is(CGI::Util::escape($uri), "%E5%B0%8F%E9%A3%BC%20%E5%BC%BE.txt", + "# Escape string with UTF-8 flag"); +} __END__ |