fix suite.pm to not garble $_

MariaDB · Jul 2, 2019 · 3acf741 · 3acf741
1 parent 7a3d34d
commit 3acf741
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/mysql-test/suite.pm b/mysql-test/suite.pm
@@ -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;