diff options
| author | Phil Pennock <pdp@exim.org> | 2017-02-10 19:37:44 -0500 |
|---|---|---|
| committer | Phil Pennock <pdp@exim.org> | 2017-02-10 19:37:44 -0500 |
| commit | 4d3d955f2791199b35704c3e9784dc99fd229696 (patch) | |
| tree | e2fde978479ed22a0b428d0b2e13dbd642d2434e /src/util | |
| parent | cf0c61644d7dd2dfb29f6418d95bf4d8cae199ea (diff) | |
perl paranoia about @INC
Diffstat (limited to 'src/util')
| -rwxr-xr-x | src/util/cramtest.pl | 2 | ||||
| -rwxr-xr-x | src/util/mkcdb.pl | 1 | ||||
| -rwxr-xr-x | src/util/ocsp_fetch.pl | 1 | ||||
| -rw-r--r-- | src/util/proxy_protocol_client.pl | 1 | ||||
| -rw-r--r-- | src/util/ratelimit.pl | 2 |
5 files changed, 7 insertions, 0 deletions
diff --git a/src/util/cramtest.pl b/src/util/cramtest.pl index cb70eb404..48f989a0c 100755 --- a/src/util/cramtest.pl +++ b/src/util/cramtest.pl @@ -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; diff --git a/src/util/mkcdb.pl b/src/util/mkcdb.pl index 16827c63b..691849dcd 100755 --- a/src/util/mkcdb.pl +++ b/src/util/mkcdb.pl @@ -15,6 +15,7 @@ use strict; +BEGIN { pop @INC if $INC[-1] eq '.' }; $ENV{'PATH'} = ""; umask(022); diff --git a/src/util/ocsp_fetch.pl b/src/util/ocsp_fetch.pl index 0d214d62a..08ca4cbe4 100755 --- a/src/util/ocsp_fetch.pl +++ b/src/util/ocsp_fetch.pl @@ -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; diff --git a/src/util/proxy_protocol_client.pl b/src/util/proxy_protocol_client.pl index feae3ca90..67a171d5d 100644 --- a/src/util/proxy_protocol_client.pl +++ b/src/util/proxy_protocol_client.pl @@ -21,6 +21,7 @@ # use strict; use warnings; +BEGIN { pop @INC if $INC[-1] eq '.' }; use IO::Select; use IO::Socket; use Getopt::Long; diff --git a/src/util/ratelimit.pl b/src/util/ratelimit.pl index d7fd43ab1..e212fa241 100644 --- a/src/util/ratelimit.pl +++ b/src/util/ratelimit.pl @@ -2,6 +2,8 @@ use strict; +BEGIN { pop @INC if $INC[-1] eq '.' }; + sub usage () { print <<END; usage: ratelimit.pl [options] <period> <regex> <logfile> |