diff options
| -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"; |