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.
