--- - Tue Jan 29 18:06:25 2002 +++ mirror-master Fri Nov 2 20:29:14 2001 @@ -37,6 +37,8 @@ # # +$#ARGV >= 0 or die("Try `man mirror-master` for help.\n"); + # Args: # -opattern - limit to site:packages matching pattern # -t - ignore timers @@ -386,7 +388,7 @@ eval( "flock( status, $kind )" ); if( $@ =~ /unimplemented/ ){ $can_flock = 0; - warn "flock not unavialable, running unlocked\n"; + warn "flock not unavailable, running unlocked\n"; } } @@ -416,9 +418,9 @@ if( $last_tried ){ $lt = $last_tried; } - if( $status ){ - $st = $status; - } + # We update the status even if its value is + # zero - Marc 99/08/23 + $st = $status; if( $lock ){ $lk = $lock; }