X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-sendmail;h=9f7c30c24a31f9fb7a7c68393a19ee5dcc73839b;hp=5ea95ab3b8de6d78e2bbb58bdf7db3c54f34bda8;hb=d721282f5566b9991baf8e3cfc25314543f40f4a;hpb=b6cafe7d7201a41899b65acbf286dbb1fce72501

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 5ea95ab..9f7c30c 100755
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -25,10 +25,12 @@ use warnings;
 
 use File::Basename;
 BEGIN {
-	use lib $ENV{"PERLMAIL_BASEDIR"} || File::Basename::dirname($0);
-	use PerlMail::Config;
-	use PerlMail::Lib;
+	my $self=$0;
+	$self=readlink $self while -l $self;
+	eval 'use lib $ENV{"PERLMAIL_BASEDIR"} || File::Basename::dirname($self);';
 	}
+use PerlMail::Config;
+use PerlMail::Lib;
 
 require Getopt::Long;
 use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG);
@@ -153,7 +155,11 @@ for my $rcpt (@rcpts) {
 	if (defined $rcpt) {	# !defined($rcpt) if we have no recipients
 		local $_;
 		$opt_f=FromAddress($rcpt,1)->address() if !defined $opt_f;
-		$head->replace($from_headername,FromAddress($rcpt,0)->format()) if $from_headername;
+		if ($from_headername) {
+			if (my $fromaddr=FromAddress($rcpt,0)->format()) {
+				$head->replace($from_headername,$fromaddr);
+				}
+			}
 		}
 
 	1;	# drop '-bm' if present as it is default anyway