[mb-commits] r12420 - mb_server/trunk/lib/MusicBrainz/Server

[root at musicbrainz.org]

Author: acid2
Date: 2010-01-05 14:43:26 +0000 (Tue, 05 Jan 2010)
New Revision: 12420

Modified:
   mb_server/trunk/lib/MusicBrainz/Server/Email.pm
Log:
Fix sending of email, which could not verify the to address.

Email::Address->parse returns an array of address, not a
single scalar as was assumed.

Fixes MBS-147

Modified: mb_server/trunk/lib/MusicBrainz/Server/Email.pm
===================================================================
--- mb_server/trunk/lib/MusicBrainz/Server/Email.pm	2010-01-05 14:43:20 UTC (rev 12419)
+++ mb_server/trunk/lib/MusicBrainz/Server/Email.pm	2010-01-05 14:43:26 UTC (rev 12420)
@@ -362,7 +362,8 @@
 sub _send_email
 {
     my ($self, $email) = @_;
-    my $to = Email::Address->parse($email->header('To'));
+    my @all_to = Email::Address->parse($email->header('To'));
+    my $to = $all_to[0];
     return unless $to && $to->address;
 
     my $args = { transport => $self->transport };