From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 2 Aug 2016 12:13:10 +0000 (+0100)
Subject: compute: handle >9 candidates properly
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=36928c5e0556b62575c7d1a5849834297a678213;p=appendix-a6.git

compute: handle >9 candidates properly
---

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