From 1576d523174c6454085338c3f241882e53bed34b Mon Sep 17 00:00:00 2001
From: Oswald Buddenhagen <ossi@users.sf.net>
Date: Sun, 27 Feb 2022 17:09:26 +0100
Subject: [PATCH] autotest: support more subjects

---
 src/run-tests.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/run-tests.pl b/src/run-tests.pl
index 144ba94..68f39d0 100755
--- a/src/run-tests.pl
+++ b/src/run-tests.pl
@@ -39,7 +39,8 @@ if (!-d "tmp") {
 chdir "tmp" or die "Cannot enter temp direcory.\n";
 
 use enum qw(:=1 A..Z);
-sub mn($) { my ($n) = @_; $n == 0 ? "0" : chr(64 + $n) }
+use enum qw(:A=27 A..Z);
+sub mn($) { my $n = shift; $n == 0 ? "0" : $n > 26 ? "A".chr(64 - 26 + $n) : chr(64 + $n) }
 sub mf($) { my ($f) = @_; length($f) ? $f : '-' }
 
 my $sync_flags = "<>^~DFPRST";