summaryrefslogtreecommitdiff
path: root/lib/Mail
diff options
context:
space:
mode:
authorAndreas Brachold <vdr07@deltab.de>2007-11-11 06:55:13 +0000
committerAndreas Brachold <vdr07@deltab.de>2007-11-11 06:55:13 +0000
commit3282be229999dc36c197b264d63063a18d136331 (patch)
tree98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/Mail
parentcfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff)
downloadxxv-3282be229999dc36c197b264d63063a18d136331.tar.gz
xxv-3282be229999dc36c197b264d63063a18d136331.tar.bz2
* Update installation list with required modules
* Remove unused/doubled provided external perl moduls
Diffstat (limited to 'lib/Mail')
-rw-r--r--lib/Mail/SendEasy.pm6
1 files changed, 3 insertions, 3 deletions
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 '' ;
}
}