Resolve $0 if symlinked

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