X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6b87451f5f6d97ce2a3bfcddbca7f715ed9a1333..181ce4f5bab35c1f270a192f062cd27cd34060ba:/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;