From 43447dae9a616c92bd4ca5910002d162c06a611f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 24 Mar 2012 15:36:34 +0000 Subject: perl_checker cleanups --- lib/Iurt/Mail.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Iurt/Mail.pm') 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"; -- cgit v1.2.1