1 changed files with 2 additions and 2 deletions
+ 2
- 2
scripts/owlps-aggcheck.pl
View File
| @@ -313,7 +313,7 @@ if ($print_stats) { | |||
| if ($print_distribution) { | |||
| foreach my $mac_trx (sort keys %distribution) { | |||
| foreach my $mac_cp (sort keys $distribution{$mac_trx}) { | |||
| foreach my $mac_cp (sort keys %{$distribution{$mac_trx}}) { | |||
| # Let's pick a shortcut | |||
| my $distrib = $distribution{$mac_trx}{$mac_cp}; | |||
| @@ -322,7 +322,7 @@ if ($print_distribution) { | |||
| # Make a list of SSs to print (we want to print all the SSs in the | |||
| # interval, not just the SSs we found) | |||
| my @present_ss_list = sort { $a <=> $b } keys $distrib; | |||
| my @present_ss_list = sort { $a <=> $b } keys %{$distrib}; | |||
| my @ss_list = $present_ss_list[0] .. $present_ss_list[-1]; | |||
| # Print all the SSs | |||
Loading…