From d7e79ac62a8403bfdfc40ae69212eb03cff8f7ff Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 28 Aug 2000 17:03:32 +0000
Subject: [PATCH] fixed typo in new file @ modnight code

---
 perl/watchdbg | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
 			}
-- 
2.34.1