Changeset 1932 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

01/12/17 18:58:44 (8 years ago)

Author:

nanardon

Message:

Avoid undef

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm

@@ -184 +184 @@
             $val = [ $val ] unless(ref $val);
             $users{$_}{e} = 1 foreach (@{ $self->get_field('member') || []});
-            $users{$_}{n} = 1 foreach (@{ $val || []});
+            $users{$_}{n} = 1 foreach (grep { defined($_) } @{ $val || []});
             foreach (keys %users) {
                 $users{$_}{e} && $users{$_}{n} and next;