Revision 538

Date:
2016/01/19 08:50:48
Author:
ahitrov
Revision Log:
fix

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/comps/inc/sendmail.msn

     
    54 54 }
    55 55 my $ccmail;
    56 56 if ( exists $email->{cc} && ref $email->{cc} eq 'ARRAY' ) {
    57 foreach my $cc ( @{ $email->{cc}, @to } ) {
    57 foreach my $cc ( @{ $email->{cc}} ) {
    58 58 my ($cce, $ecce) = $cc =~ /^(.*?)<(.*?)>/ ? ($1, $2) : $cc =~ /<(.*?)>/ ? ('',$1) : ('',$cc);
    59 59 $cc = $ecce;
    60 60 }