[siesta-commit] siesta/lib/Siesta Message.pm,1.30,1.31

[prev] [thread] [next] [lurker] [Date index for 2002/10/10]

From: clampr
Subject: [siesta-commit] siesta/lib/Siesta Message.pm,1.30,1.31
Date: 10:55 on 10 Oct 2002
Update of /cvsroot/siesta/siesta/lib/Siesta
In directory usw-pr-cvs1:/tmp/cvs-serv14546/lib/Siesta

Modified Files:
	Message.pm 
Log Message:
move to Mail::Address

Index: Message.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Message.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- Message.pm	20 Sep 2002 20:32:05 -0000	1.30
+++ Message.pm	10 Oct 2002 09:55:34 -0000	1.31
@@ -3,7 +3,7 @@
 use strict;
 
 use Siesta;
-use Email::Valid;
+use Mail::Address;
 use Mail::Internet;
 use base 'Mail::Internet';
 use Storable qw(dclone);
@@ -17,7 +17,7 @@
     if (@_) {
         $self->head->replace( 'To', shift );
     }
-    Email::Valid->address( $self->head->get('To') );
+    map { $_->address } Mail::Address->parse( $self->head->get('To') );
 }
 
 sub from {
@@ -25,7 +25,7 @@
     if (@_) {
         $self->head->replace( 'From', shift );
     }
-    Email::Valid->address( $self->head->get('From') );
+    map { $_->address } Mail::Address->parse( $self->head->get('From') );
 }
 
 sub subject {



Generated at 04:01 on 24 Mar 2007 by mariachi 0.52