diff options
| author | Graeme Fowler <graemef@exim.org> | 2018-03-23 12:00:54 +0000 |
|---|---|---|
| committer | Graeme Fowler <graemef@exim.org> | 2018-03-23 12:00:54 +0000 |
| commit | 0800ef83ee2e0f769c96b7d4b972038188331627 (patch) | |
| tree | 5b0fa4e8405b21333a5b83cc70fc2fefac45e1c2 | |
| parent | 830832c9aac90729e88bab0d1daa1ec8bb6848f5 (diff) | |
exiqsumm fix: Check @ARGV exists before testing it
| -rw-r--r-- | doc/doc-txt/ChangeLog | 3 | ||||
| -rw-r--r-- | src/src/exiqsumm.src | 2 |
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"; |