Use back-compatible variable for perl version
authorJeremy Harris <jgh146exb@wizmail.org>
Wed, 1 Nov 2017 12:32:13 +0000 (12:32 +0000)
committerJeremy Harris <jgh146exb@wizmail.org>
Wed, 1 Nov 2017 12:39:04 +0000 (12:39 +0000)
The modern $^V is not present in some buildfarm animals' perl versions.

src/src/exigrep.src
src/src/exim_checkaccess.src
src/src/eximstats.src
src/src/exipick.src
src/src/exiqgrep.src
src/src/exiqsumm.src
src/src/transport-filter.src
test/runtest

index 118cd91..9e5c7d8 100644 (file)
@@ -233,7 +233,7 @@ GetOptions(
       'version'        => sub {
             print basename($0) . ": $0\n",
                 "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
-                "perl(runtime): $^V\n";
+                "perl(runtime): $]\n";
             exit 0;
       },
 ) and @ARGV or pod2usage;
index 81f6ebf..360f307 100755 (executable)
@@ -71,7 +71,7 @@ use IPC::Open2;
 if ($ARGV[0] eq '--version') {
     print basename($0) . ": $0\n",
           "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
-          "perl(runtime): $^V\n";
+          "perl(runtime): $]\n";
           exit 0;
 }
 
index 99f4c19..76cfe7e 100644 (file)
@@ -560,7 +560,7 @@ use POSIX;
 if ($ARGV[0] eq '--version') {
     print basename($0) . ": $0\n",
         "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
-        "perl(runtime): $^V\n";
+        "perl(runtime): $]\n";
         exit 0;
 }
 
index d486b42..b6c28ef 100644 (file)
@@ -88,7 +88,7 @@ GetOptions(
   'version'     => sub {
         print basename($0) . ": $0\n",
             "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
-            "perl(runtime): $^V\n";
+            "perl(runtime): $]\n";
             exit 0;
   },
 ) || exit(1);
index c26da68..c4f7c4b 100644 (file)
@@ -49,7 +49,7 @@ if ($^O eq 'darwin') { # aka MacOS X
 if ($ARGV[0] eq '--version') {
     print basename($0) . ": $0\n",
         "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
-        "perl(runtime): $^V\n";
+        "perl(runtime): $]\n";
         exit 0;
 }
 
index 97cacdd..551ca97 100644 (file)
@@ -48,7 +48,7 @@ use File::Basename;
 if ($ARGV[0] eq '--version') {
     print basename($0) . ": $0\n",
         "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
-        "perl(runtime): $^V\n";
+        "perl(runtime): $]\n";
         exit 0;
 }
 
index 256bf7c..db00d87 100644 (file)
@@ -18,7 +18,7 @@ use File::Basename;
 if ($ARGV[0] eq '--version') {
     print basename($0) . ": $0\n",
         "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
-        "perl(runtime): $^V\n";
+        "perl(runtime): $]\n";
         exit 0;
 }
 
index b29be7f..57e2d8a 100755 (executable)
@@ -3364,7 +3364,7 @@ if (system("cp $parm_exim_dir/eximstats eximdir") != 0)
 
 # Collect some version information
 print '-' x 78, "\n";
-print "Perl version for runtest: $^V\n";
+print "Perl version for runtest: $]\n";
 foreach (map { "./eximdir/$_" } qw(exigrep exinext eximstats)) {
   # fold (or unfold?) multiline output into a one-liner
   print join(', ', map { chomp; $_ } `$_ --version`), "\n";