git://git.jankratochvil.net
/
PerlMail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
+&is_multipart
[PerlMail.git]
/
perlmail-sendmail
diff --git
a/perlmail-sendmail
b/perlmail-sendmail
index
276e3dd
..
2177e2c
100755
(executable)
--- a/
perlmail-sendmail
+++ b/
perlmail-sendmail
@@
-24,11
+24,12
@@
use strict;
use warnings;
use File::Basename;
use warnings;
use File::Basename;
+use File::Spec::Link;
BEGIN {
BEGIN {
- use lib $ENV{"PERLMAIL_BASEDIR"} || File::Basename::dirname($0);
- use PerlMail::Config;
- use PerlMail::Lib;
+ eval 'use lib $ENV{"PERLMAIL_BASEDIR"} || File::Basename::dirname(File::Spec::Link->resolve($0));';
}
}
+use PerlMail::Config;
+use PerlMail::Lib;
require Getopt::Long;
use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG);
require Getopt::Long;
use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG);