X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Fsrc%2Fexipick.src;h=4999d843f2d3877bc870b61f2aae213e50c31c92;hb=4d3d955f2791199b35704c3e9784dc99fd229696;hp=1672c7fe6bdde81613d69ef61fe1008c848df00c;hpb=cf0c61644d7dd2dfb29f6418d95bf4d8cae199ea;p=exim.git

diff --git a/src/src/exipick.src b/src/src/exipick.src
index 1672c7fe6..4999d843f 100644
--- 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|/?([^/]+)$|;