Changeset 1983


Ignore:
Timestamp:
03/31/17 16:26:47 (7 years ago)
Author:
nanardon
Message:

Avoid undef warning

Location:
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm

    r1874 r1983  
    274274            $val = [ $val ] unless(ref $val); 
    275275            my %users; 
    276             $users{$_}{e} = 1 foreach (@{ $self->get_field('memberOf') || []}); 
    277             $users{$_}{n} = 1 foreach (@{ $val || []}); 
     276            $users{$_}{e} = 1 foreach (grep { $_ } @{ $self->get_field('memberOf') || []}); 
     277            $users{$_}{n} = 1 foreach (grep { $_ } @{ $val || []}); 
    278278            foreach (keys %users) { 
    279279                $users{$_}{e} && $users{$_}{n} and next; 
  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/User.pm

    r1935 r1983  
    232232                : ()); 
    233233            $val = [ $val ] unless(ref $val); 
    234             $users{$_}{n} = 1 foreach (@{ $val || []}); 
     234            $users{$_}{n} = 1 foreach (grep { $_ } @{ $val || []}); 
    235235            foreach (keys %users) { 
    236236                $users{$_}{e} && $users{$_}{n} and next; 
Note: See TracChangeset for help on using the changeset viewer.