[prev] [thread] [next] [lurker] [Date index for 2002/10/10]
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