X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fwatchdbg;h=fef5cdf7e8e1f54a081f3da530b2fcd08e32f71b;hb=acd7eca91e9d784b05d64f4c41eb8a4d2eb6ad6d;hp=ca3e2e3b03c134abcbd7ef6b46d0aa63f65864a3;hpb=5723719679b0bb4ddc55f32eb5ceb3cf59ee23ae;p=spider.git

diff --git a/perl/watchdbg b/perl/watchdbg
index ca3e2e3b..fef5cdf7 100755
--- a/perl/watchdbg
+++ b/perl/watchdbg
@@ -51,7 +51,8 @@ for (;;) {
 		my @now = Julian::unixtoj(time()); 
 		if ($today[1] != $now[1]) {
 			$fp->close;
-			for (my $i = 0; $i < 20; $i++) {
+			my $i;
+			for ($i = 0; $i < 20; $i++) {
 				last if $fh = $fp->open(@now);
 				sleep 5;
 			}