X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fwatchdbg;h=17bb3289af9f49b58c138cee19805688e759c59e;hb=b228776e730a2aaf6c18d2f88a458719e6b0275a;hp=6da3a586a712040d19cff2590ab3c5e85b372009;hpb=d11ddefb5de3e16b44f78fd9db541bccc9587082;p=spider.git

diff --git a/perl/watchdbg b/perl/watchdbg
index 6da3a586..17bb3289 100755
--- a/perl/watchdbg
+++ b/perl/watchdbg
@@ -51,7 +51,12 @@ for (;;) {
 		my @now = Julian::unixtoj(time()); 
 		if ($today[1] != $now[1]) {
 			$fp->close;
-			$fh = $fp->open(@now) or die $!; 
+			my $i;
+			for ($i = 0; $i < 20; $i++) {
+				last if $fh = $fp->open(@now);
+				sleep 5;
+			}
+		 	die $! if $i >= 20; 
 			@today = @now;
 		}
 	}
@@ -62,8 +67,8 @@ sub printit
 	my $line = shift;
 	my @line =  split '\^', $line;
 	my $t = shift @line;
-        my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
-        my $buf = sprintf "%02d:%02d:%02d", $hour, $min, $sec;
+	my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
+	my $buf = sprintf "%02d:%02d:%02d", $hour, $min, $sec;
 
 	print $buf, ' ', join('^', @line); 
 }