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 2004/07/08 00:50:06 UTC
cvs commit: modperl-2.0/t/response/TestAPI slurp_filename.pm
stas 2004/07/07 15:50:06
Modified: t/response/TestAPI slurp_filename.pm
Log:
minor tweak, no content change
Revision Changes Path
1.4 +2 -4 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.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- slurp_filename.pm 3 Jul 2004 18:45:46 -0000 1.3
+++ slurp_filename.pm 7 Jul 2004 22:50:06 -0000 1.4
@@ -32,8 +32,7 @@
{
my $data = $r->slurp_filename; # tainted
- my $received;
- eval { $received = eval $$data };
+ my $received = eval { eval $$data };
ok t_cmp($@, qr/Insecure dependency in eval/,
"slurp filename tainted");
@@ -46,8 +45,7 @@
# just in case we will encounter some probs in the future,
# here is pure perl function for comparison
my $data = slurp_filename_perl($r); # tainted
- my $received;
- eval { $received = eval $$data };
+ my $received = eval { eval $$data };
ok t_cmp($@, qr/Insecure dependency in eval/,
"slurp filename (perl) tainted");