Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: (qmail 66625 invoked from network); 26 Sep 2003 21:18:18 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 26 Sep 2003 21:18:18 -0000 Received: (qmail 98512 invoked by uid 500); 26 Sep 2003 21:18:06 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 98439 invoked by uid 500); 26 Sep 2003 21:18:06 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 98426 invoked by uid 500); 26 Sep 2003 21:18:05 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 26 Sep 2003 21:18:17 -0000 Message-ID: <20030926211817.66616.qmail@minotaur.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/response/TestAPI slurp_filename.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N 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;