svn commit: [2295] branches/stable/lib/Act/Email.pm: merge r2294: in case more than one address is given, only use the first

[maddingue at free.fr]

Revision: 2295
Author:   maddingue
Date:     2013-04-16 01:05:42 +0200 (Tue, 16 Apr 2013)
Log Message:
-----------
merge r2294: in case more than one address is given, only use the first

Modified Paths:
--------------
    branches/stable/lib/Act/Email.pm

Modified: branches/stable/lib/Act/Email.pm
===================================================================
--- branches/stable/lib/Act/Email.pm	2013-04-15 22:58:46 UTC (rev 2294)
+++ branches/stable/lib/Act/Email.pm	2013-04-15 23:05:42 UTC (rev 2295)
@@ -46,7 +46,11 @@
 
     my @headers;
 
-    my $from = Email::Address->new( ref $args{from} ? ( @{ $args{from} }{ 'name', 'email' } ) : ( '', $args{from} ) );
+    my @from = ref $args{from}
+             ? ( @{ $args{from} }{ 'name', 'email' } )
+             : ( '', (split /,/, $args{from})[0] );
+
+    my $from = Email::Address->new(@from);
     push @headers, ( From => $from->format() );
     chomp $args{subject};