perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPI slurp_filename.pm
Date Fri, 26 Sep 2003 21:18:17 GMT
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;
  
  
  

Mime
View raw message