Avoid building routines calling other not incuded in utilities link stage

[users/heiko/exim.git] / src / util / proxy_protocol_client.pl

diff --git a/src/util/proxy_protocol_client.pl b/src/util/proxy_protocol_client.pl
index feae3ca90f8762aa833323c18e9679b2c0663bcc..67a171d5d179278a17dff62c513cc3606b04020f 100644 (file)
--- a/src/util/proxy_protocol_client.pl
+++ b/src/util/proxy_protocol_client.pl
@@ -21,6 +21,7 @@
 #
 use strict;
 use warnings;
 #
 use strict;
 use warnings;

+BEGIN { pop @INC if $INC[-1] eq '.' };

 use IO::Select;
 use IO::Socket;
 use Getopt::Long;
 use IO::Select;
 use IO::Socket;
 use Getopt::Long;