From 243e497ff8a09f8810cb433ed312bf03ea86d885 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Tue, 16 Aug 2005 21:23:47 +0000
Subject: [PATCH] Bug fix

---
 perl/schedproc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl/schedproc b/perl/schedproc
index 0dd2941..3c34f3a 100755
--- a/perl/schedproc
+++ b/perl/schedproc
@@ -105,13 +105,14 @@ sub next_class {
     @off = @{$class{'off'}} if ($class{'off'});
     for($today = ($today > $firstday ? $today : $firstday); $today < $lastday; $today++) {
 	next unless(grep($_ == Day_of_Week($today->date), @days));
-	next if(grep($_ == $today, @off));
+	print "$today\n";
+	next if(grep($_ == "$today", @off));
 	return $today;
     }
     $today = Date::Calc->new(Date::Calc->gmtime->date);
     for($today = ($today < $lastday ? $today : $lastday); $today > $firstday; $today--) {
 	next unless(grep($_ == Day_of_Week($today->date), @days));
-	next if(grep($_ == $today, @off));
+	next if(grep($_ == "$today", @off));
 	return $today;
     }
     return undef;
-- 
2.30.2