about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rwxr-xr-xara.pl2
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