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/hooks cleanup2.t
Date Fri, 06 Jun 2003 04:23:46 GMT
stas        2003/06/05 21:23:46

  Modified:    t/hooks  cleanup2.t
  Log:
  fix bogus conditions to check whether the file wasn't yet removed
  (it's unrelated to WIN32)
  
  Revision  Changes    Path
  1.3       +1 -4      modperl-2.0/t/hooks/cleanup2.t
  
  Index: cleanup2.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/cleanup2.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- cleanup2.t	6 Jun 2003 03:45:52 -0000	1.2
  +++ cleanup2.t	6 Jun 2003 04:23:46 -0000	1.3
  @@ -4,11 +4,9 @@
   use Apache::Test;
   use Apache::TestUtil;
   use Apache::TestRequest;
  -use Apache::TestConfig;
   
   use File::Spec::Functions qw(catfile catdir);
   
  -use constant SIZE => Apache::TestConfig::WIN32 ? 14 : 10;
   use constant TRIES => 20;
   
   my $vars = Apache::Test::config->{vars};
  @@ -38,8 +36,7 @@
       # finished, we have to give it some time  to get there
       # and remove in the file. (wait 0.25 .. 5 sec)
       my $t = 0;
  -    select undef, undef, undef, 0.25
  -        while -e $file && -s _ == SIZE || $t++ == TRIES;
  +    select undef, undef, undef, 0.25 until !-e $file || $t++ == TRIES;
   
       if (-e $file) {
           t_debug("$file wasn't removed by the cleanup phase");
  
  
  

Mime
View raw message