return () unless @sorted;
my $s = $sorted[0];
my $eqtotal = $s->{Total};
- my $count = 0;
+ my $count = 0/1;
while ($count < @sorted && $sorted[$count]{Total} == $eqtotal) {
printf "%7s %10s %s\n", $how, $sorted[$count]{Cand},
pr $sorted[$count]{Total};
}
foreach my $firstpref (sort keys %sorted) {
foreach my $vote (@{ $sorted{$firstpref}{Votes} }) {
- votelog $vote, "counted $vote->{Weight} for $firstpref";
+ votelog $vote, "counted for $firstpref ".pr $vote->{Weight};
}
}
my @sorted;
push @stagerecord, { map { ($_->{Cand}, $_->{Total}) } @sorted };
- my $totalvalid = 0;
+ my $totalvalid = 0/1;
my $countvalid = sub {
my ($l, $what) = @_;
foreach my $s (@$l) {
# Look for people to eliminate
# We eliminate before trying to transfer surpluses
# ERS 5.2.5
- my $elimvotebefore = 0;
+ my $elimvotebefore = 0/1;
for (;;) {
last unless @sorted;