perl paranoia about @INC
authorPhil Pennock <pdp@exim.org>
Sat, 11 Feb 2017 00:37:44 +0000 (19:37 -0500)
committerPhil Pennock <pdp@exim.org>
Sat, 11 Feb 2017 00:37:44 +0000 (19:37 -0500)
15 files changed:
src/src/convert4r3.src
src/src/convert4r4.src
src/src/exigrep.src
src/src/exim_checkaccess.src
src/src/eximstats.src
src/src/exinext.src
src/src/exipick.src
src/src/exiqgrep.src
src/src/exiqsumm.src
src/src/transport-filter.src
src/util/cramtest.pl
src/util/mkcdb.pl
src/util/ocsp_fetch.pl
src/util/proxy_protocol_client.pl
src/util/ratelimit.pl

index 810b337..632eb70 100755 (executable)
@@ -8,6 +8,7 @@
 # It is assumed that the input is a valid Exim configuration file.
 
 use warnings;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 
 ##################################################
 #             Analyse one line                   #
index 8075602..fff4e47 100755 (executable)
@@ -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.
index e885712..faa5cb7 100644 (file)
@@ -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.
index 84d03c0..a780a29 100755 (executable)
@@ -63,6 +63,7 @@ if test "$exim_path" = ""; then exim_path=BIN_DIRECTORY/exim; fi
 
 PERL_COMMAND - $exim_path $args <<'End'
 
+BEGIN { pop @INC if $INC[-1] eq '.' };
 use FileHandle;
 use IPC::Open2;
 
index 7e74db8..a2113f1 100644 (file)
@@ -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;
 
index 182e395..9c42735 100644 (file)
@@ -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];
index 1672c7f..4999d84 100644 (file)
@@ -12,6 +12,7 @@ my $charset = 'ISO-8859-1';
 #       http://www.exim.org/eximwiki/ToolExipickManPage
 
 use strict;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 use Getopt::Long;
 
 my($p_name)   = $0 =~ m|/?([^/]+)$|;
index ae617c4..d900e99 100644 (file)
@@ -18,6 +18,7 @@
 # Version 1.2
 
 use strict;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 use Getopt::Std;
 
 # Have this variable point to your exim binary.
index c8b522e..99a304f 100644 (file)
@@ -42,6 +42,7 @@
 # Slightly modified sub from eximstats
 
 use warnings;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 
 sub print_volume_rounded {
 my($x) = pop @_;
index 2558bd7..3f250e6 100644 (file)
@@ -12,6 +12,7 @@
 #############################################################################
 
 use warnings;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 
 # If the filter is called with any arguments, insert them into the message
 # as X-Arg headers, just to verify what they are.
index cb70eb4..48f989a 100755 (executable)
@@ -24,6 +24,8 @@
 #       Vadim Vygonets <vadik-exim@vygo.net>.  All rights reserved.
 # Public domain is OK with me.
 
+BEGIN { pop @INC if $INC[-1] eq '.' };
+
 use MIME::Base64;
 use Digest::MD5;
 
index 16827c6..691849d 100755 (executable)
@@ -15,6 +15,7 @@
 
 use strict;
 
+BEGIN { pop @INC if $INC[-1] eq '.' };
 $ENV{'PATH'} = "";
 umask(022);
 
index 0d214d6..08ca4cb 100755 (executable)
@@ -2,6 +2,7 @@
 # Copyright (C) 2012 Wizards Internet Ltd
 # License GPLv2: GNU GPL version 2 <http://www.gnu.org/licenses/old-licenses/gpl-2.0.html>
 use strict;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 use Getopt::Std;
 $Getopt::Std::STANDARD_HELP_VERSION=1;
 use IO::Handle;
index feae3ca..67a171d 100644 (file)
@@ -21,6 +21,7 @@
 #
 use strict;
 use warnings;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 use IO::Select;
 use IO::Socket;
 use Getopt::Long;
index d7fd43a..e212fa2 100644 (file)
@@ -2,6 +2,8 @@
 
 use strict;
 
+BEGIN { pop @INC if $INC[-1] eq '.' };
+
 sub usage () {
   print <<END;
 usage: ratelimit.pl [options] <period> <regex> <logfile>