diff options
| -rw-r--r-- | email_in.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/email_in.pl b/email_in.pl index 1f9a958c8..f06dd0e31 100644 --- a/email_in.pl +++ b/email_in.pl @@ -24,10 +24,9 @@ use warnings; # MTAs may call this script from any directory, but it should always # run from this one so that it can find its modules. -BEGIN { - require File::Basename; - chdir(File::Basename::dirname($0)); -} +use Cwd qw(abs_path); +use File::Basename qw(dirname); +BEGIN { chdir dirname(abs_path($0)); } use lib qw(. lib); |