Changeset 1931 for trunk


Ignore:
Timestamp:
01/12/17 18:58:44 (7 years ago)
Author:
nanardon
Message:

Avoid undef value

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/User.pm

    r1875 r1931  
    122122            my %set; 
    123123            $data{$field} = [ $data{$field} ] unless(ref $data{$field}); 
    124             foreach(@{ $data{$field} || []}) { 
     124            foreach(grep { defined($_) }  @{ $data{$field} || []}) { 
    125125                $set{$_} = 1; 
    126126            } 
Note: See TracChangeset for help on using the changeset viewer.