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 118cd91b91d41c00fd21c76e99fb53b6458415b3..9e5c7d8b7f2c46dc77960b61f99ecb92f607bfab 100644 (file)
@@ -233,7 +233,7 @@ GetOptions(
       'version'        => sub {
             print basename($0) . ": $0\n",
                 "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
       '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;
             exit 0;
       },
 ) and @ARGV or pod2usage;
index 81f6ebf705cdc05a93d3cc72b48b078812a95da7..360f307ba5e6806cfbda613eece0b18fc56cdfd7 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",
 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;
 }
 
           exit 0;
 }
 
index 99f4c195f6cf094320eb2e10b9b599c676102465..76cfe7e9797194998546b1660a18682263a45359 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",
 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;
 }
 
         exit 0;
 }
 
index d486b4289893485f7c240c18b2aaf441f874f777..b6c28ef23bc18e313f2929e763bf7179eeccbd50 100644 (file)
@@ -88,7 +88,7 @@ GetOptions(
   'version'     => sub {
         print basename($0) . ": $0\n",
             "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
   '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);
             exit 0;
   },
 ) || exit(1);
index c26da684bfae3f136c9414930df73e6ec68a615b..c4f7c4b58aac30f11964b775b9429c6e7e5aea62 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",
 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;
 }
 
         exit 0;
 }
 
index 97cacdd6358ae8628ba2749a72cc1767075f135b..551ca97ca669eb781ef06c2b6a85c4eb3d048faa 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",
 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;
 }
 
         exit 0;
 }
 
index 256bf7c397b5175abebdec27abe6d6b713eb8e07..db00d877f8154cb43cf2524bf461e17eae86704f 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",
 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;
 }
 
         exit 0;
 }
 
index b29be7fce593f39a02c302e281dca640505192c2..57e2d8a1091800367e770e6bb1b12f616105c3b5 100755 (executable)
@@ -3364,7 +3364,7 @@ if (system("cp $parm_exim_dir/eximstats eximdir") != 0)
 
 # Collect some version information
 print '-' x 78, "\n";
 
 # 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";
 foreach (map { "./eximdir/$_" } qw(exigrep exinext eximstats)) {
   # fold (or unfold?) multiline output into a one-liner
   print join(', ', map { chomp; $_ } `$_ --version`), "\n";