From 36928c5e0556b62575c7d1a5849834297a678213 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 2 Aug 2016 13:13:10 +0100
Subject: [PATCH] compute: handle >9 candidates properly

---
 compute | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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";
-- 
2.30.2