| … | |
… | |
| 170 | my %pri; |
170 | my %pri; |
| 171 | push @{ $pri{$_->[3]} }, [ @$_[3,4,5,6] ] |
171 | push @{ $pri{$_->[3]} }, [ @$_[3,4,5,6] ] |
| 172 | for @_; |
172 | for @_; |
| 173 | |
173 | |
| 174 | # order by priority |
174 | # order by priority |
| 175 | for my $pri (sort { $a->[0] <=> $b->[0] } keys %pri) { |
175 | for my $pri (sort { $a <=> $b } keys %pri) { |
| 176 | # order by weight |
176 | # order by weight |
| 177 | my @rr = sort { $a->[1] <=> $b->[1] } @{ delete $pri{$pri} }; |
177 | my @rr = sort { $a->[1] <=> $b->[1] } @{ delete $pri{$pri} }; |
| 178 | |
178 | |
| 179 | my $sum; $sum += $_->[1] for @rr; |
179 | my $sum; $sum += $_->[1] for @rr; |
| 180 | |
180 | |
