[scripts] AggCheck: fix for recent perl versions

This commit is contained in:
Matteo Cypriani 2018-04-13 19:36:59 +02:00
vanhempi bce8896b4b
commit 2f84754392
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa

Näytä tiedosto

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