Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
} elsif (m/^_?[Tt]ie=(.*)\>(.*)$/) {
my @more = split /\,/, $1;
my @less = split /\,/, $2;
} elsif (m/^_?[Tt]ie=(.*)\>(.*)$/) {
my @more = split /\,/, $1;
my @less = split /\,/, $2;
- my @all = join ',', sort (@more, @less);
+ my @all = join ' ', sort (@more, @less);
$tie{"@all"}{Win} = $more[0] if @more == 1;
$tie{"@all"}{Lose} = $less[0] if @less == 1;
} else {
$tie{"@all"}{Win} = $more[0] if @more == 1;
$tie{"@all"}{Lose} = $less[0] if @less == 1;
} else {
my $selectcand;
if ($nequal > 1) {
my $selectcand;
if ($nequal > 1) {
- my @all = map { $_->{Cand} } @maybe[0 .. $nequal-1];
+ my @all = sort map { $_->{Cand} } @maybe[0 .. $nequal-1];
my $tiekey = $signum > 0 ? 'Win' : 'Lose';
$selectcand = $tie{"@all"}{$tiekey};
die "need tie break, want $tiekey from @all"
my $tiekey = $signum > 0 ? 'Win' : 'Lose';
$selectcand = $tie{"@all"}{$tiekey};
die "need tie break, want $tiekey from @all"