Add support for negative scores (eg. late penalties)

scripts/total-score

@@ -12,7 +12,7 @@ my $total_possible = 0;
 my $found_totalline = 0;
 
 foreach my $line (@scorefile) {
-    if ($line =~ /^\s*(\d+(\.\d+)?|XX)(\s*\/\s*(\d+)\s*)?/) {
+    if ($line =~ /^\s*(\-?\d+(\.\d+)?|XX)(\s*\/\s*(\d+)\s*)?/) {
         my ($score, $possible) = ($1, $4);
         if ($score eq "XX") {
             die "Score not filled on line: $line\n";