Support 9210 CSV contacts format.

[PerlMail.git] / perlmail-sendmail

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