X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-sendmail;h=f819bccb40b2d599ae2e38766fcaa0aa8a844616;hp=366f830db8c788be3d7e9d4f90cf33500e125e57;hb=9d03569bd26dfb0f54f21063445fc9d28ed1c4d3;hpb=c23c7da69d6fabcd20481ca42cfe551626bfbcc5

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 366f830..f819bcc 100755
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -7,14 +7,16 @@ $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 use strict;
 use warnings;
 
-use PerlMail::Config;
+use File::Basename;
+BEGIN {
+	use lib $ENV{"PERLMAIL_BASEDIR"} || File::Basename::dirname($0);
+	use PerlMail::Config;
+	}
 
 require Getopt::Long;
 use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG);
 require MIME::Head;	# inherits Mail::Header
 require Mail::Address;
-require File::Basename;
-require Mail::Alias;
 
 
 # FIXME: modularized unification with 'perlmail-accept'