Changeset 404


Ignore:
Timestamp:
08/28/09 09:35:37 (15 years ago)
Author:
nanardon
Message:
  • avoid undef value
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

    r400 r404  
    408408            my @vals = ref $val ? @{ $val } : $val; 
    409409                foreach (@vals) { 
     410                    $_ ||= ''; 
    410411                    s/\r?\n/\\n/g; 
    411412                    printf($handle "%s%s: %s\n",  
    412413                        $wok ? '' : '# (ro) ', 
    413                         $attr, $_ || ''); 
     414                        $attr, $_); 
    414415                } 
    415416            } 
    … …  
    417418            printf($handle "%s%s: %s\n",  
    418419                $wok ? '' : '# (ro) ', 
    419                 $attr, $_ || ''); 
     420                $attr, ''); 
    420421        } 
    421422    } 
Note: See TracChangeset for help on using the changeset viewer.