exiqsumm fix: Check @ARGV exists before testing it

diff --git a/doc/doc-txt/ChangeLog b/doc/doc-txt/ChangeLog
index 459ffe11a2e38b39119f60662909ae6050310467..497c92ab24d122a29df1d309e39745dda22ed528 100644 (file)
--- 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 551ca97ca669eb781ef06c2b6a85c4eb3d048faa..67772f5e8bf0029cd0f8fdb4132180b185601ec9 100644 (file)
--- 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";