X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-sendmail;h=2177e2ce62738bd3eea7bf2ab6ac811be8750d72;hp=9f7c30c24a31f9fb7a7c68393a19ee5dcc73839b;hb=8dbc021592be6992b33afbee6b9d91d1990766bf;hpb=a10f1afce1b60c05a297e8bb66d4fa1d4791f8af

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 9f7c30c..2177e2c 100755
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -24,10 +24,9 @@ use strict;
 use warnings;
 
 use File::Basename;
+use File::Spec::Link;
 BEGIN {
-	my $self=$0;
-	$self=readlink $self while -l $self;
-	eval 'use lib $ENV{"PERLMAIL_BASEDIR"} || File::Basename::dirname($self);';
+	eval 'use lib $ENV{"PERLMAIL_BASEDIR"} || File::Basename::dirname(File::Spec::Link->resolve($0));';
 	}
 use PerlMail::Config;
 use PerlMail::Lib;