stas 2004/10/18 16:22:35
Modified: t/response/TestModperl post_utf8.pm
Log:
forgot to load ModPerl::Util
Revision Changes Path
1.7 +3 -2 modperl-2.0/t/response/TestModperl/post_utf8.pm
Index: post_utf8.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/post_utf8.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -u -r1.6 -r1.7
--- post_utf8.pm 18 Oct 2004 23:21:28 -0000 1.6
+++ post_utf8.pm 18 Oct 2004 23:22:35 -0000 1.7
@@ -34,13 +34,14 @@
need need_min_perl_version(5.008), need_perl('perlio');
my $received = ModPerl::Test::read_post($r) || "";
- # assume that we know that it's utf8
- require Encode; # since 5.8.0
# workaround for perl-5.8.0, which doesn't decode correctly a
# tainted variable
+ require ModPerl::Util;
ModPerl::Util::untaint($received) if $] == 5.008;
+ # assume that we know that it's utf8
+ require Encode; # since 5.8.0
$received = Encode::decode('utf8', $received);
# utf8::decode() doesn't work under -T
my ($received_ascii, $received_utf8) = split /=/, $received;
