X-Git-Url: https://git.exim.org/exim.git/blobdiff_plain/bc88a04543780d9071a47279a97beedae815b35e..3324ab3f03dc273e0ad6d9c6d91ce78b2ca35e17:/test/runtest?ds=sidebyside

diff --git a/test/runtest b/test/runtest
index dfd21925a..57e2d8a10 100755
--- a/test/runtest
+++ b/test/runtest
@@ -3320,7 +3320,6 @@ system("sudo cp eximdir/exim eximdir/exim_exim;" .
        "sudo chgrp $parm_eximgroup eximdir/exim_exim;" .
        "sudo chmod 06755 eximdir/exim_exim");
 
-
 ##################################################
 #     Make copies of utilities we might need     #
 ##################################################
@@ -3363,6 +3362,15 @@ if (system("cp $parm_exim_dir/eximstats eximdir") != 0)
   tests_exit(-1, "Failed to make a copy of eximstats: $!");
   }
 
+# Collect some version information
+print '-' x 78, "\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";
+}
+print '-' x 78, "\n";
+
 
 ##################################################
 #    Check that the Exim user can access stuff   #
@@ -3408,8 +3416,6 @@ else
 tests_exit(-1, "Failed to unlink $log_summary_filename: $!")
   if not unlink($log_summary_filename) and -e $log_summary_filename;
 
-print "Perl version:" . $];
-
 ##################################################
 #        Create a list of available tests        #
 ##################################################