perl paranoia about @INC

[exim.git] / src / src / exinext.src

diff --git a/src/src/exinext.src b/src/src/exinext.src
index 182e39574c4a53af024989ffe6b1e33179611d5a..9c427350b29ab28bd9fff6470730ad7ed1f2ab03 100644 (file)
--- a/src/src/exinext.src
+++ b/src/src/exinext.src
@@ -115,6 +115,9 @@ fi
 
 perl - $exim_path "$eximmacdef" $argone $spool_directory $qualify_domain $config <<'End'
 
+  # We don't import anything, but guard against future changes which do
+  BEGIN { pop @INC if $INC[-1] eq '.' };
+
   # Name the arguments
 
   $exim = $ARGV[0];