X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fschedproc;h=ec8d99cc6031b0f6bf2fe09ed66945ab32190e74;hp=96b607e32cfe45e24f60e6e2e46a431d9e0af317;hb=27d95d61b2c588a369cfcd880b826789e7db9456;hpb=aa66f2d760e4c8975a9c6f775ed03b7f7d0c37cd

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