compute: handle >9 candidates properly

diff --git a/compute b/compute
index 38ad31b6f0ef85dd4d6aefd135dc3e40d1d74da5..bb2f2ecf88c3da3daf8735f78272ecdc27660b5b 100755 (executable)
--- a/compute
+++ b/compute
@@ -203,7 +203,7 @@ foreach my $iv (@invotes_v) {
            my $vchr = $vs[$ix];
            if ($vchr eq '-') {
                $vs[$ix] = 1000;
-           } elsif ($vchr =~ m/[0-9a-z]/) {
+           } elsif ($vchr =~ m/[0-9A-Z]/) {
                $vs[$ix] = ord($vchr);
            } else {
                die "bad vote char";