From 3282be229999dc36c197b264d63063a18d136331 Mon Sep 17 00:00:00 2001 From: Andreas Brachold Date: Sun, 11 Nov 2007 06:55:13 +0000 Subject: * Update installation list with required modules * Remove unused/doubled provided external perl moduls --- lib/Mail/SendEasy.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/Mail') diff --git a/lib/Mail/SendEasy.pm b/lib/Mail/SendEasy.pm index c7d5064..5b7cc43 100644 --- a/lib/Mail/SendEasy.pm +++ b/lib/Mail/SendEasy.pm @@ -110,7 +110,7 @@ sub send { { my @from = &_check_emails( $mail{from} ) ; return( undef ) if $ER ; if ($#from > 0) { $ER = "More than one From: " . join(" ; ", @from) ; return( undef ) ;} - $mail{from} = @from[0] ; + $mail{from} = $from[0] ; my @to = &_check_emails( $mail{to} ) ; return( undef ) if $ER ; $mail{to} = \@to ; @@ -122,12 +122,12 @@ sub send { if ( defined $mail{reply} ) { my @reply = &_check_emails( $mail{reply} ) ; return( undef ) if $ER ; - $mail{reply} = @reply[0] ; delete $mail{reply} if $mail{reply} eq '' ; + $mail{reply} = $reply[0] ; delete $mail{reply} if $mail{reply} eq '' ; } if ( defined $mail{error} ) { my @error = &_check_emails( $mail{error} ) ; return( undef ) if $ER ; - $mail{error} = @error[0] ; delete $mail{error} if $mail{error} eq '' ; + $mail{error} = $error[0] ; delete $mail{error} if $mail{error} eq '' ; } } -- cgit v1.2.3