From: Tim Pope <code@tpope.net>
Date: Tue, 16 Aug 2005 21:23:47 +0000 (+0000)
Subject: Bug fix
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=243e497ff8a09f8810cb433ed312bf03ea86d885

Bug fix
---

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;