Use back-compatible variable for perl version

The modern $^V is not present in some buildfarm animals' perl versions.

diff --git a/src/src/exigrep.src b/src/src/exigrep.src
index 118cd91b91d41c00fd21c76e99fb53b6458415b3..9e5c7d8b7f2c46dc77960b61f99ecb92f607bfab 100644 (file)
--- a/src/src/exigrep.src
+++ b/src/src/exigrep.src
@@ -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;

diff --git a/src/src/exim_checkaccess.src b/src/src/exim_checkaccess.src
index 81f6ebf705cdc05a93d3cc72b48b078812a95da7..360f307ba5e6806cfbda613eece0b18fc56cdfd7 100755 (executable)
--- a/src/src/exim_checkaccess.src
+++ b/src/src/exim_checkaccess.src
@@ -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;
 }
 

diff --git a/src/src/eximstats.src b/src/src/eximstats.src
index 99f4c195f6cf094320eb2e10b9b599c676102465..76cfe7e9797194998546b1660a18682263a45359 100644 (file)
--- a/src/src/eximstats.src
+++ b/src/src/eximstats.src
@@ -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;
 }
 

diff --git a/src/src/exipick.src b/src/src/exipick.src
index d486b4289893485f7c240c18b2aaf441f874f777..b6c28ef23bc18e313f2929e763bf7179eeccbd50 100644 (file)
--- a/src/src/exipick.src
+++ b/src/src/exipick.src
@@ -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);

diff --git a/src/src/exiqgrep.src b/src/src/exiqgrep.src
index c26da684bfae3f136c9414930df73e6ec68a615b..c4f7c4b58aac30f11964b775b9429c6e7e5aea62 100644 (file)
--- a/src/src/exiqgrep.src
+++ b/src/src/exiqgrep.src
@@ -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;
 }
 

diff --git a/src/src/exiqsumm.src b/src/src/exiqsumm.src
index 97cacdd6358ae8628ba2749a72cc1767075f135b..551ca97ca669eb781ef06c2b6a85c4eb3d048faa 100644 (file)
--- a/src/src/exiqsumm.src
+++ b/src/src/exiqsumm.src
@@ -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;
 }
 

diff --git a/src/src/transport-filter.src b/src/src/transport-filter.src
index 256bf7c397b5175abebdec27abe6d6b713eb8e07..db00d877f8154cb43cf2524bf461e17eae86704f 100644 (file)
--- a/src/src/transport-filter.src
+++ b/src/src/transport-filter.src
@@ -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;
 }
 

diff --git a/test/runtest b/test/runtest
index b29be7fce593f39a02c302e281dca640505192c2..57e2d8a1091800367e770e6bb1b12f616105c3b5 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -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";