From de935e1f694d55122e39827950ed05f781656b0d Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 30 Aug 2019 14:56:50 +0200
Subject: [PATCH] SL::Auth: Warnungen wegen nicht initialisierten Werten
 vermeiden

Durch Tests getriggert, konkret: durch t/controllers/base/render.t
---
 SL/Auth.pm | 2 ++
 1 file changed, 2 insertions(+)

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;
-- 
2.20.1