- perl-CGI-t-util-58.patch: Do not distort lib/CGI/t/util-58.t http://rt.perl.org/rt3/Ticket/Display.html?id=64502
23 lines
901 B
Diff
23 lines
901 B
Diff
2009-04-06 Stepan Kasal <skasal@redhat.com>
|
|
|
|
* lib/CGI/t/util-58.t: return to the upstream version, do not
|
|
hide bugs.
|
|
|
|
diff -ur perl-5.10.0.orig/lib/CGI/t/util-58.t perl-5.10.0/lib/CGI/t/util-58.t
|
|
--- perl-5.10.0.orig/lib/CGI/t/util-58.t 2007-12-18 11:47:07.000000000 +0100
|
|
+++ perl-5.10.0/lib/CGI/t/util-58.t 2009-04-06 18:28:07.000000000 +0200
|
|
@@ -11,11 +11,6 @@
|
|
use Test::More tests => 2;
|
|
use_ok("CGI::Util");
|
|
my $uri = "\x{5c0f}\x{98fc} \x{5f3e}.txt"; # KOGAI, Dan, in Kanji
|
|
-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");
|
|
-}
|
|
+is(CGI::Util::escape($uri), "%E5%B0%8F%E9%A3%BC%20%E5%BC%BE.txt",
|
|
+ "# Escape string with UTF-8 flag");
|
|
__END__
|