X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-sendmail;fp=perlmail-sendmail;h=9f7c30c24a31f9fb7a7c68393a19ee5dcc73839b;hp=276e3ddb44d70f9408cc3d96d609022ff835081e;hb=a10f1afce1b60c05a297e8bb66d4fa1d4791f8af;hpb=8ca17d26dca4ffc4d9850c791ad2733718f796ce

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 276e3dd..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);