X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=test%2Flib%2FExim%2FRuntest.pm;h=7ba079051c9e88fb9515408e303f57428f996606;hb=25f3b885dbfd1ba330521c8fe106876667a31bb7;hp=e41a29c8cb83cc0bb03b1375ecaf7d21657db55f;hpb=45f35410b4bdd59614dd9811ee99aea6a5d1164c;p=user%2Fhenk%2Fcode%2Fexim.git

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