exiqsumm fix: Check @ARGV exists before testing it
authorGraeme Fowler <graemef@exim.org>
Fri, 23 Mar 2018 12:00:54 +0000 (12:00 +0000)
committerGraeme Fowler <graemef@exim.org>
Fri, 23 Mar 2018 12:00:54 +0000 (12:00 +0000)
doc/doc-txt/ChangeLog
src/src/exiqsumm.src

index 459ffe1..497c92a 100644 (file)
@@ -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
index 551ca97..67772f5 100644 (file)
@@ -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";