From: minima Date: Mon, 28 Aug 2000 17:03:32 +0000 (+0000) Subject: fixed typo in new file @ modnight code X-Git-Tag: R_1_44~6 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7e79ac62a8403bfdfc40ae69212eb03cff8f7ff;p=spider.git fixed typo in new file @ modnight code --- 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; }