perl 5.8.2 from CPAN

1 files changed, 16 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/lib/CGI/t/util-58.t b/gnu/usr.bin/perl/lib/CGI/t/util-58.t
new file mode 100755
index 00000000000..70a618917cf
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/CGI/t/util-58.t
@@ -0,0 +1,16 @@
+#
+# This tests CGI::Util::escape() when fed with UTF-8-flagged string
+# -- dankogai
+BEGIN {
+    if ($] < 5.008) {
+       print "1..0 # \$] == $] < 5.008\n";
+       exit(0);
+    }
+}
+
+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");
+__END__