stas 01/10/09 09:48:31 Modified: ModPerl-Registry/t closure.t Log: - using select() instead of sleep to gain 1 sec delay granularity, needed for -M to notice that the file was modified Revision Changes Path 1.2 +4 -1 modperl-2.0/ModPerl-Registry/t/closure.t Index: closure.t =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/closure.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- closure.t 2001/10/09 12:47:38 1.1 +++ closure.t 2001/10/09 16:48:31 1.2 @@ -119,7 +119,10 @@ sub sleep_and_touch_file { my $file = shift; - sleep 2; # so -M will be different, res: 1 sec, granularity > 1sec + # need to wait at least 1 whole sec, so -M will notice the + # difference. select() has better resolution than 1 sec as in + # sleep() + select undef, undef, undef, 1.00; # sure 1 sec my $now = time; utime $now, $now, $file; }