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");
|