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/proxy_protocol_client.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/util/proxy_protocol_client.pl')

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