Changeset 918

Timestamp:

04/02/12 12:02:16 (12 years ago)

Author:

nanardon

Message:

• avoid undef warning

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm

@@ -213 +213 @@
         } elsif (substr($u->{user}, 0, 1) eq '%') { # group
             my $group = substr($u->{user}, 1);
-            return $u->{$perm} if (defined($u->{$perm}) && grep { $group eq $_ } @{$groups ||[]});
+            return $u->{$perm} if (defined($u->{$perm}) && grep { $group eq $_ } grep { $_ } @{$groups ||[]});
         # any user
         } elsif ($u->{user} eq '*' || $u->{user} eq $who) {