-
sendmail.msn
537 538 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 }