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 { ...@@ -77,11 +77,11 @@ sub skip_combinations {
my $openssl_cnf='/etc/ssl/openssl.cnf'; my $openssl_cnf='/etc/ssl/openssl.cnf';
if ($openssl_ver and open my $f, '<', $openssl_cnf) { if ($openssl_ver and open my $f, '<', $openssl_cnf) {
local $/; local $/;
$_=<$f>; my $cnf=<$f>;
$skip{'main/tls_version.test'} = "TLSv1.1 disabled in $openssl_cnf" $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" $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; %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