Rectify minor whitespace ugliness

This commit is contained in:
Pragmatic Software 2019-04-27 14:45:59 -07:00
parent 2e41641037
commit 8bd1a00ce2
1 changed files with 1 additions and 3 deletions

View File

@ -299,9 +299,7 @@ sub rank {
my $rank = 0;
my $last_value = -1;
foreach my $player (@$players) {
my $entry;
$entry = $ranks{$arguments}->{print}->($player);
my $entry = $ranks{$arguments}->{print}->($player);
if (defined $entry) {
my ($value) = $entry =~ /[^:]+:\s+(.*)/;
$rank++ if $value ne $last_value;