perl paranoia about @INC

[exim.git] / src / src / exipick.src

diff --git a/src/src/exipick.src b/src/src/exipick.src
index 1672c7fe6bdde81613d69ef61fe1008c848df00c..4999d843f2d3877bc870b61f2aae213e50c31c92 100644 (file)
--- a/src/src/exipick.src
+++ b/src/src/exipick.src
@@ -12,6 +12,7 @@ my $charset = 'ISO-8859-1';
 #       http://www.exim.org/eximwiki/ToolExipickManPage
 
 use strict;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 use Getopt::Long;
 
 my($p_name)   = $0 =~ m|/?([^/]+)$|;