[prev] [thread] [next] [lurker] [Date index for 2002/10/10]
Update of /cvsroot/siesta/siesta/lib/Siesta In directory usw-pr-cvs1:/tmp/cvs-serv29831 Modified Files: Message.pm Log Message: perltidy Index: Message.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/Message.pm,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- Message.pm 10 Oct 2002 10:47:39 -0000 1.32 +++ Message.pm 10 Oct 2002 10:50:46 -0000 1.33 @@ -45,13 +45,13 @@ $clone->body( [ map { "$_\n" } split /\n/, $args{'body'} ] ); } - my $to = $args{to} || ($self->from)[0] - or return 0; - my $from = $args{from} || ($self->to)[0] - or return 0; + my $to = $args{to} || ( $self->from )[0] + or return; + my $from = $args{from} || ( $self->to )[0] + or return; - $clone->to( $to ); - $clone->from( $from ); + $clone->to($to); + $clone->from($from); $clone->subject( $args{subject} || "Re: " . ( $self->subject || "Your mail" ) );
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52