summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Fowler <graemef@exim.org>2018-03-23 12:00:54 +0000
committerGraeme Fowler <graemef@exim.org>2018-03-23 12:00:54 +0000
commit0800ef83ee2e0f769c96b7d4b972038188331627 (patch)
tree5b0fa4e8405b21333a5b83cc70fc2fefac45e1c2
parent830832c9aac90729e88bab0d1daa1ec8bb6848f5 (diff)
exiqsumm fix: Check @ARGV exists before testing it
-rw-r--r--doc/doc-txt/ChangeLog3
-rw-r--r--src/src/exiqsumm.src2
2 files changed, 4 insertions, 1 deletions
diff --git a/doc/doc-txt/ChangeLog b/doc/doc-txt/ChangeLog
index 459ffe11a..497c92ab2 100644
--- a/doc/doc-txt/ChangeLog
+++ b/doc/doc-txt/ChangeLog
@@ -15,6 +15,9 @@ GF/01 DEFER rather than ERROR on redis cluster MOVED response.
next server in the list. For a cluster of N elements, all N servers must
be defined in redis_servers.
+GF/02 Catch and remove uninitialized value warning in exiqsumm
+ Check for existence of @ARGV before looking at $ARGV[0]
+
JH/01 Replace the store_release() internal interface with store_newblock(),
which internalises the check required to safely use the old one, plus
the allocate and data copy operations duplicated in both (!) of the
diff --git a/src/src/exiqsumm.src b/src/src/exiqsumm.src
index 551ca97ca..67772f5e8 100644
--- a/src/src/exiqsumm.src
+++ b/src/src/exiqsumm.src
@@ -45,7 +45,7 @@ use warnings;
BEGIN { pop @INC if $INC[-1] eq '.' };
use File::Basename;
-if ($ARGV[0] eq '--version') {
+if (@ARGV && $ARGV[0] eq '--version') {
print basename($0) . ": $0\n",
"build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
"perl(runtime): $]\n";