From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 30 Aug 2019 12:56:50 +0000 (+0200)
Subject: SL::Auth: Warnungen wegen nicht initialisierten Werten vermeiden
X-Git-Tag: release-3.5.6.1~502
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=de935e1f694d55122e39827950ed05f781656b0d;p=kivitendo-erp.git

SL::Auth: Warnungen wegen nicht initialisierten Werten vermeiden

Durch Tests getriggert, konkret: durch t/controllers/base/render.t
---

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;