git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d721282
)
Fixed self-symlinks resolving by File::Spec::Link.
author
short
<>
Sun, 19 Oct 2003 06:24:05 +0000
(06:24 +0000)
committer
short
<>
Sun, 19 Oct 2003 06:24:05 +0000
(06:24 +0000)
Makefile.PL
patch
|
blob
|
history
perlmail-sendmail
patch
|
blob
|
history
diff --git
a/Makefile.PL
b/Makefile.PL
index
fa15215
..
a29df5b
100644
(file)
--- a/
Makefile.PL
+++ b/
Makefile.PL
@@
-57,6
+57,7
@@
WriteMakefile(
"URI::Escape"=>0,
"User::Utmp"=>0,
"WWW::SMS::TMobileCZ"=>0,
"URI::Escape"=>0,
"User::Utmp"=>0,
"WWW::SMS::TMobileCZ"=>0,
+ "File::Spec::Link"=>0,
},
"EXE_FILES"=>["perlmail-accept","perlmail-submit","perlmail-sendmail","contacts-n9k2mutt"],
);
},
"EXE_FILES"=>["perlmail-accept","perlmail-submit","perlmail-sendmail","contacts-n9k2mutt"],
);
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 warnings;
use File::Basename;
+use File::Spec::Link;
BEGIN {
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;
}
use PerlMail::Config;
use PerlMail::Lib;