X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fschedproc;h=137d2ea04aa3a7eb720b80b4e2f32a1f3dac50a8;hp=3c34f3ac1b4805d8d73a653d69a76fced65745e7;hb=eba37aa49fb0ac65a9b1077e97d875eddf298b85;hpb=243e497ff8a09f8810cb433ed312bf03ea86d885

diff --git a/perl/schedproc b/perl/schedproc
index 3c34f3a..137d2ea 100755
--- a/perl/schedproc
+++ b/perl/schedproc
@@ -105,7 +105,6 @@ 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));
-	print "$today\n";
 	next if(grep($_ == "$today", @off));
 	return $today;
     }