Change 30874 by [EMAIL PROTECTED] on 2007/04/08 12:05:44 Integrate: [ 28568] Subject: [PATCH] z/OS: CPAN-ized ext/ and lib/ From: Jarkko Hietaniemi <[EMAIL PROTECTED]> Date: Thu, 13 Jul 2006 23:10:27 +0300 Message-ID: <[EMAIL PROTECTED]>
Affected files ... ... //depot/maint-5.8/perl/lib/CGI/t/util-58.t#2 integrate Differences ... ==== //depot/maint-5.8/perl/lib/CGI/t/util-58.t#2 (text) ==== Index: perl/lib/CGI/t/util-58.t --- perl/lib/CGI/t/util-58.t#1~19682~ 2003-06-03 22:22:46.000000000 -0700 +++ perl/lib/CGI/t/util-58.t 2007-04-08 05:05:44.000000000 -0700 @@ -11,6 +11,11 @@ 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__ End of Patch.