perl paranoia about @INC

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

diff --git a/src/src/eximstats.src b/src/src/eximstats.src
index 7f220a20102b80028f4141720ed4d6d3e13b1479..a2113f1068949fc661f000041638124a9c015a94 100644 (file)
--- a/src/src/eximstats.src
+++ b/src/src/eximstats.src
@@ -1,4 +1,4 @@
-#!PERL_COMMAND -w
+#!PERL_COMMAND
 
 # Copyright (c) 2001-2016 University of Cambridge.
 # See the file NOTICE for conditions of use and distribution.
@@ -547,7 +547,9 @@ Merging of xls files is not (yet) possible. Be free to implement :)
 
 =cut
 
+use warnings;
 use integer;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 use strict;
 use IO::File;