From 27d95d61b2c588a369cfcd880b826789e7db9456 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Wed, 24 Aug 2005 08:21:51 +0000
Subject: [PATCH] AAAAAAAAAARGH

---
 perl/schedproc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/schedproc b/perl/schedproc
index 96b607e..ec8d99c 100755
--- a/perl/schedproc
+++ b/perl/schedproc
@@ -477,7 +477,7 @@ EOF
 	print "DTEND;TZID=\"$tzn\":", $first."T".$stoptime, "00$r\n";
 	$row->{'days'} =~ s/([MTWRFS])/,$days{$1}/g;
 	$row->{'days'} =~ s/^,//;
-	$stopdate++
+	$stopdate++;
 	print "RRULE:FREQ=WEEKLY;UNTIL=${stopdate}T000000Z;BYDAY=", $row->{'days'}, "$r\n";
 	foreach my $day (@day) {
 	    print("EXDATE;TZID=\"$tzn\":${day}T$starttime$r\n");
-- 
2.30.2