diff options
-rwxr-xr-x | ara.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ara.pl b/ara.pl index 401777b..0bbf062 100755 --- a/ara.pl +++ b/ara.pl @@ -221,7 +221,7 @@ foreach my $i ( 0 ... scalar @$statewise - 1 ) { # If user has asked to show specific states then forget about hide # option. - if ( scalar @to_show ) { + if ( scalar keys %show ) { next unless exists $show{lc $state} or ( length $state > 16 |