Revision de935e1f
Von Moritz Bunkus vor etwa 5 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 1126 | 1126 |
my $negate = 0; |
| 1127 | 1127 |
|
| 1128 | 1128 |
foreach my $el (@{$ary}) {
|
| 1129 |
next unless defined $el; |
|
| 1130 |
|
|
| 1129 | 1131 |
if (ref $el eq "ARRAY") {
|
| 1130 | 1132 |
my $val = evaluate_rights_ary($el); |
| 1131 | 1133 |
$val = !$val if $negate; |
Auch abrufbar als: Unified diff
SL::Auth: Warnungen wegen nicht initialisierten Werten vermeiden
Durch Tests getriggert, konkret: durch t/controllers/base/render.t