diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-24 15:36:34 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-24 15:36:34 +0000 |
| commit | 43447dae9a616c92bd4ca5910002d162c06a611f (patch) | |
| tree | 7310fed1ccf3835949ff461dcec5206c1de3713a /lib/Iurt/Mail.pm | |
| parent | b1a4966c165963b91436bcce74d7d5d69b4aa510 (diff) | |
| download | iurt-43447dae9a616c92bd4ca5910002d162c06a611f.tar iurt-43447dae9a616c92bd4ca5910002d162c06a611f.tar.gz iurt-43447dae9a616c92bd4ca5910002d162c06a611f.tar.bz2 iurt-43447dae9a616c92bd4ca5910002d162c06a611f.tar.xz iurt-43447dae9a616c92bd4ca5910002d162c06a611f.zip | |
perl_checker cleanups
Diffstat (limited to 'lib/Iurt/Mail.pm')
| -rw-r--r-- | lib/Iurt/Mail.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Iurt/Mail.pm b/lib/Iurt/Mail.pm index 6a9edb6..a268b2c 100644 --- a/lib/Iurt/Mail.pm +++ b/lib/Iurt/Mail.pm @@ -9,7 +9,7 @@ our @EXPORT = qw( ); sub expand_email { - my($email, $config) = @_; + my ($email, $config) = @_; return $email unless $config->{email_domain}; my $name = ""; my $addr = $email; @@ -35,7 +35,7 @@ sub sendmail { if ($cc) { $cc = expand_email($cc, $config); $cc = encode_mimewords($cc); - print $MAIL "Cc: $cc\n" + print $MAIL "Cc: $cc\n"; } print $MAIL "From: $from\n"; print $MAIL "Subject: $subject\n"; |