Browse Source

[scripts] AggCheck: fix for recent perl versions

Matteo Cypriani 9 months 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) {
313 313
 
314 314
 if ($print_distribution) {
315 315
     foreach my $mac_trx (sort keys %distribution) {
316
-        foreach my $mac_cp (sort keys $distribution{$mac_trx}) {
316
+        foreach my $mac_cp (sort keys %{$distribution{$mac_trx}}) {
317 317
             # Let's pick a shortcut
318 318
             my $distrib = $distribution{$mac_trx}{$mac_cp};
319 319
 
@@ -322,7 +322,7 @@ if ($print_distribution) {
322 322
 
323 323
             # Make a list of SSs to print (we want to print all the SSs in the
324 324
             # interval, not just the SSs we found)
325
-            my @present_ss_list = sort { $a <=> $b } keys $distrib;
325
+            my @present_ss_list = sort { $a <=> $b } keys %{$distrib};
326 326
             my @ss_list = $present_ss_list[0] .. $present_ss_list[-1];
327 327
 
328 328
             # Print all the SSs

Loading…
Cancel
Save