Debug: fix showing option name for list (vs. list content)

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

diff --git a/src/util/ocsp_fetch.pl b/src/util/ocsp_fetch.pl
index 0d214d62aa34c5657a1329273d35a6b79af1da4d..9255311a4ac38c106027e8bdfaf4169a6d68bac5 100755 (executable)
--- a/src/util/ocsp_fetch.pl
+++ b/src/util/ocsp_fetch.pl
@@ -1,7 +1,10 @@
 #!/usr/bin/perl
 # Copyright (C) 2012 Wizards Internet Ltd
 # License GPLv2: GNU GPL version 2 <http://www.gnu.org/licenses/old-licenses/gpl-2.0.html>
 #!/usr/bin/perl
 # Copyright (C) 2012 Wizards Internet Ltd
 # License GPLv2: GNU GPL version 2 <http://www.gnu.org/licenses/old-licenses/gpl-2.0.html>

+# SPDX-License-Identifier: GPL-2.0-or-later
+

 use strict;
 use strict;

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

 use Getopt::Std;
 $Getopt::Std::STANDARD_HELP_VERSION=1;
 use IO::Handle;
 use Getopt::Std;
 $Getopt::Std::STANDARD_HELP_VERSION=1;
 use IO::Handle;