X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-sendmail;fp=perlmail-sendmail;h=4831db221e6eb4535712409d287cc179c8f62bc8;hp=5f6a070c40bca22f474bb29dd36bde09deaa570f;hb=642743bdc07dbcea55e4f580b894fd87cc3992b8;hpb=ad512beb433a9c57a944d4e7abcd1681289d88b8

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 5f6a070..4831db2 100755
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -17,7 +17,8 @@ require Mail::Alias;
 my $sendmail_orig=(-x ($_="/usr/sbin/sendmail-orig") ? $_ : "/usr/sbin/sendmail");
 my $HOME="/home/short";
 # Mail-Alias-1.12 defaults to "/etc/mail/aliases" which does not exist on RedHat sendmail-8.12.5-7
-my @addr_addon=(Mail::Alias->new("/etc/aliases")->exists($_="sentout") ? ($_) : ());
+# Mail-Alias-1.12 will clutter $_ !
+my @addr_addon=(Mail::Alias->new("/etc/aliases")->exists("sentout") ? ("sentout") : ());
 my $opt_F;
 sub FromAddress
 {