stas 2003/02/06 16:40:32
Modified: ModPerl-Registry/t closure.t
Log:
correct the explanation
Revision Changes Path
1.6 +3 -2 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.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- closure.t 22 May 2002 05:40:48 -0000 1.5
+++ closure.t 7 Feb 2003 00:40:32 -0000 1.6
@@ -118,9 +118,10 @@
sub sleep_and_touch_file {
my $file = shift;
- # need to wait at least 1 whole sec, so -M will notice the
+ # need to wait at least 1 whole sec, so utime() will notice the
# difference. select() has better resolution than 1 sec as in
- # sleep()
+ # sleep() so we are more likely to have the minimal waiting time,
+ # while fullfilling the purpose
select undef, undef, undef, 1.00; # sure 1 sec
my $now = time;
utime $now, $now, $file;
