[siesta-commit] siesta/lib/Siesta Message.pm,1.32,1.33

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

From: clampr
Subject: [siesta-commit] siesta/lib/Siesta Message.pm,1.32,1.33
Date: 11:50 on 10 Oct 2002
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