chiark / gitweb /
compute: handle >9 candidates properly
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 2 Aug 2016 12:13:10 +0000 (13:13 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 2 Aug 2016 12:13:10 +0000 (13:13 +0100)
compute

diff --git a/compute b/compute
index 38ad31b..bb2f2ec 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";