Commit 3acf7410 authored by Sergei Golubchik's avatar Sergei Golubchik

fix suite.pm to not garble $_

parent 7a3d34d6
......@@ -77,11 +77,11 @@ sub skip_combinations {
my $openssl_cnf='/etc/ssl/openssl.cnf';
if ($openssl_ver and open my $f, '<', $openssl_cnf) {
local $/;
$_=<$f>;
my $cnf=<$f>;
$skip{'main/tls_version.test'} = "TLSv1.1 disabled in $openssl_cnf"
if /^\s*MinProtocol\s*=\s*TLSv1.[2-9]/m;
if $cnf =~ /^\s*MinProtocol\s*=\s*TLSv1.[2-9]/m;
$skip{'main/tls_version1.test'} = "TLSv1.0 disabled in $openssl_cnf"
if /^\s*MinProtocol\s*=\s*TLSv1.[1-9]/m;
if $cnf =~ /^\s*MinProtocol\s*=\s*TLSv1.[1-9]/m;
}
%skip;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment