Fix regext substring capture variables for null matches. Bug 2933

[exim.git] / src / util / ocsp_fetch.pl

diff --git a/src/util/ocsp_fetch.pl b/src/util/ocsp_fetch.pl
index 0d214d62aa34c5657a1329273d35a6b79af1da4d..08ca4cbe4c22e5a1e5a67da52c2156c86efe42f9 100755 (executable)
--- 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;