svn commit: [2294] trunk/lib/Act/Email.pm: in case more than one address is given, only use the first

[maddingue at free.fr]

Revision: 2294
Author:   maddingue
Date:     2013-04-16 00:58:46 +0200 (Tue, 16 Apr 2013)
Log Message:
-----------
in case more than one address is given, only use the first

Modified Paths:
--------------
    trunk/lib/Act/Email.pm

Modified: trunk/lib/Act/Email.pm
===================================================================
--- trunk/lib/Act/Email.pm	2011-07-19 00:15:59 UTC (rev 2293)
+++ trunk/lib/Act/Email.pm	2013-04-15 22:58:46 UTC (rev 2294)
@@ -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};