X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/48c71a4b51f5359a7ab7e9bc51280baf9bc9b9b2..1f22556352ca6a32f921583b922ddb51e9760a4b:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 2898222aa..930179603 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -1126,6 +1126,8 @@ sub evaluate_rights_ary {
   my $negate = 0;
 
   foreach my $el (@{$ary}) {
+    next unless defined $el;
+
     if (ref $el eq "ARRAY") {
       my $val = evaluate_rights_ary($el);
       $val    = !$val if $negate;