From: Tim Pope <code@tpope.net>
Date: Wed, 24 Aug 2005 08:21:51 +0000 (+0000)
Subject: AAAAAAAAAARGH
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=27d95d61b2c588a369cfcd880b826789e7db9456

AAAAAAAAAARGH
---

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");