proper sorting of baselines based on serial number

diff --git a/scripts/pasttrec_baseline_finder.pl b/scripts/pasttrec_baseline_finder.pl
index 2e6c8fe4c00965090fbcce9c8c9ab37eb4e3c851..61cefac15631d5169ce025b80b8498990883bd4a 100755 (executable)
--- a/scripts/pasttrec_baseline_finder.pl
+++ b/scripts/pasttrec_baseline_finder.pl
@@ -140,7 +140,7 @@ foreach my $b (keys %{$rates}) {
 ###############################################################################
 #Output Data
 ###############################################################################
-foreach my $b (sort keys %{$rates}) {
+foreach my $b (sort { $addresses->{$a} <=> $addresses->{$b} } keys %{$rates}) {
   foreach my $p (0..3) {
     printf("   %i\t%i\t%02i\t%02i\t%02i\t%02i\t%02i\t%02i\t%02i\t%02i\n",
       $addresses->{$b}, $p,