X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e98e20941b580769e3f4e6e2bcac60a679b7e06b..43e0502b9a815cb1af0735c9ea7c2bc819b97df5:/SL/Menu.pm

diff --git a/SL/Menu.pm b/SL/Menu.pm
index b3ffd0f94..77bc848fd 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -215,7 +215,7 @@ sub access_control {
   my $excl = ();
 
   # remove --AR, --AP from array
-  grep { ($a, $b) = split /--/; s/--$a$//; } @a;
+  grep { ($a, $b) = split(/--/); s/--$a$//; } @a;
 
   map { $excl{$_} = 1 } @a;