diff options
| -rwxr-xr-x | test/runtest | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/test/runtest b/test/runtest index dfd21925a..b29be7fce 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: $^V\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 # ################################################## |