From 65c28e49c04b12b3b29d6bafb13e1c5fa19082a1 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 19 Oct 2003 06:24:05 +0000
Subject: [PATCH] Fixed self-symlinks resolving by File::Spec::Link.

---
 Makefile.PL       | 1 +
 perlmail-sendmail | 5 ++---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index fa15215..a29df5b 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -57,6 +57,7 @@ WriteMakefile(
 				"URI::Escape"=>0,
 				"User::Utmp"=>0,
 				"WWW::SMS::TMobileCZ"=>0,
+				"File::Spec::Link"=>0,
 				},
 		"EXE_FILES"=>["perlmail-accept","perlmail-submit","perlmail-sendmail","contacts-n9k2mutt"],
 		);
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;
-- 
1.8.3.1