From 4d3d955f2791199b35704c3e9784dc99fd229696 Mon Sep 17 00:00:00 2001
From: Phil Pennock <pdp@exim.org>
Date: Fri, 10 Feb 2017 19:37:44 -0500
Subject: perl paranoia about @INC

---
 src/util/cramtest.pl              | 2 ++
 src/util/mkcdb.pl                 | 1 +
 src/util/ocsp_fetch.pl            | 1 +
 src/util/proxy_protocol_client.pl | 1 +
 src/util/ratelimit.pl             | 2 ++
 5 files changed, 7 insertions(+)

(limited to 'src/util')

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>
-- 
cgit v1.2.3