Browse Source

[scripts] AggCheck: fix for recent perl versions

master
Matteo Cypriani 1 year ago
parent
commit
2f84754392
1 changed files with 2 additions and 2 deletions
  1. 2
    2
      scripts/owlps-aggcheck.pl

+ 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…
Cancel
Save