AAAAAAAAAARGH

diff --git a/perl/schedproc b/perl/schedproc
index 96b607e32cfe45e24f60e6e2e46a431d9e0af317..ec8d99cc6031b0f6bf2fe09ed66945ab32190e74 100755 (executable)
--- 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");