You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/09/26 23:18:17 UTC
cvs commit: modperl-2.0/t/response/TestAPI slurp_filename.pm
stas 2003/09/26 14:18:17
Modified: t/response/TestAPI slurp_filename.pm
Log:
tidy up the test
Revision Changes Path
1.2 +6 -6 modperl-2.0/t/response/TestAPI/slurp_filename.pm
Index: slurp_filename.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/slurp_filename.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- slurp_filename.pm 30 Aug 2003 02:33:26 -0000 1.1
+++ slurp_filename.pm 26 Sep 2003 21:18:17 -0000 1.2
@@ -1,12 +1,10 @@
package TestAPI::slurp_filename;
-# test slurp_filename()'s taintness options and the that it works properly with utf8 data
+# test slurp_filename()'s taintness options and that it works properly
+# with utf8 data
use strict;
use warnings FATAL => 'all';
-no warnings 'redefine';
-
-use diagnostics;
use Apache::Test;
use Apache::TestUtil;
@@ -36,7 +34,8 @@
my $data = $r->slurp_filename; # tainted
my $received;
eval { $received = eval $$data };
- ok t_cmp(qr/Insecure dependency in eval/, $@, "slurp filename tainted");
+ ok t_cmp(qr/Insecure dependency in eval/, $@,
+ "slurp filename tainted");
ModPerl::Util::untaint($$data);
$received = eval $$data;
@@ -49,7 +48,8 @@
my $data = slurp_filename_perl($r); # tainted
my $received;
eval { $received = eval $$data };
- ok t_cmp(qr/Insecure dependency in eval/, $@, "slurp filename (perl) tainted");
+ ok t_cmp(qr/Insecure dependency in eval/, $@,
+ "slurp filename (perl) tainted");
ModPerl::Util::untaint($$data);
$received = eval $$data;