perl paranoia about @INC

[exim.git] / src / src / exigrep.src

diff --git a/src/src/exigrep.src b/src/src/exigrep.src
index e8857126e77f9beb546960b3d4425173ac987249..faa5cb73b53a1bbdfd3cd75fcba9eb7003289f6d 100644 (file)
--- a/src/src/exigrep.src
+++ b/src/src/exigrep.src
@@ -2,6 +2,7 @@
 
 use warnings;
 use strict;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 
 # Copyright (c) 2007-2015 University of Cambridge.
 # See the file NOTICE for conditions of use and distribution.