perl paranoia about @INC

[exim.git] / src / src / eximstats.src

diff --git a/src/src/eximstats.src b/src/src/eximstats.src
index 7e74db8852f201001422daf7558a6bbefb9d8f04..a2113f1068949fc661f000041638124a9c015a94 100644 (file)
--- a/src/src/eximstats.src
+++ b/src/src/eximstats.src
@@ -549,6 +549,7 @@ Merging of xls files is not (yet) possible. Be free to implement :)
 
 use warnings;
 use integer;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 use strict;
 use IO::File;