|
|
|
@ -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
|
|
|
|
|