1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/Menu.pm b/LedgerSMB/Menu.pm
index 57c83245..dce0be8e 100755
--- a/LedgerSMB/Menu.pm
+++ b/LedgerSMB/Menu.pm
@@ -107,7 +107,7 @@ sub access_control {
     }
 
     my @a = split /;/, $myconfig->{acs};
-    my $excl = ();
+    my %excl = ();
 
     # remove --AR, --AP from array
     grep { ( $a, $b ) = split /--/; s/--$a$//; } @a;