+ if (defined $besti) {
+ if ($best) {
+ print STDERR "I: Replacing ", $best->{'Host'}, " (pri $bestpri)\n";
+ delete $best->{'Row'};
+ }
+ print STDERR "I: Allocated ", $s->{'Host'}, " \@$besti (pri $pri)\n";
+ $s->{'Row'} = $besti;
+ $by_row[$besti] = $s;
+ } else {
+ print STDERR "I: No place for ", $s->{'Host'}, " (pri $pri)\n" if $debug;