summaryrefslogtreecommitdiff
path: root/test/lib/Exim/Runtest.pm
diff options
context:
space:
mode:
Diffstat (limited to 'test/lib/Exim/Runtest.pm')
-rw-r--r--test/lib/Exim/Runtest.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/test/lib/Exim/Runtest.pm b/test/lib/Exim/Runtest.pm
index e41a29c8c..7ba079051 100644
--- a/test/lib/Exim/Runtest.pm
+++ b/test/lib/Exim/Runtest.pm
@@ -119,6 +119,10 @@ sub flavour {
$etc = shift;
}
+ if (open(my $f, '-|', 'openssl version')) {
+ <$f> =~ /1.1.1/ && return "openssl_1_1_1";
+ }
+
if (open(my $f, '<', "$etc/os-release")) {
local $_ = join '', <$f>;
my ($id) = /^ID="?(.*?)"?\s*$/m;
@@ -137,7 +141,7 @@ sub flavour {
sub flavours {
my %h = map { /\.(\S+)$/, 1 }
- grep { !/\.orig$/ } glob('stdout/*.*'), glob('stderr/*.*');
+ grep { !/\.orig$/ } glob('stdout/*.*'), glob('stderr/*.*'), glob('log/*.*');
return sort keys %h;
}
@@ -174,7 +178,7 @@ typical files in the F</etc> directory.
=item B<flavours>()
-Return a list of available flavours. It does so by scanning F<stdout/> and
+Return a list of available flavours. It does so by scanning F<log/>, F<stdout/> and
F<stderr/> for I<flavour> files (extensions after the numerical prefix.
=back