perl paranoia about @INC

[exim.git] / src / src / convert4r4.src

diff --git a/src/src/convert4r4.src b/src/src/convert4r4.src
index 8075602cb637ac73939f5b167f54b09bbd4be978..fff4e478bc3f649222b24e6f3bde71b50ce8cb64 100755 (executable)
--- a/src/src/convert4r4.src
+++ b/src/src/convert4r4.src
@@ -7,6 +7,7 @@
 # It is assumed that the input is a valid Exim 3 configuration file.
 
 use warnings;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 
 # These are lists of main options which are abolished in Exim 4.
 # The first contains options that are used to construct new options.