"URI::Escape"=>0,
"User::Utmp"=>0,
"WWW::SMS::TMobileCZ"=>0,
+ "File::Spec::Link"=>0,
},
"EXE_FILES"=>["perlmail-accept","perlmail-submit","perlmail-sendmail","contacts-n9k2mutt"],
);
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;