MDEV-12424: binlog_encryption.encrypted_* tests fail with Can't locate autodie.pm error

Don't use Perl autodie module as there are platforms where it is not present

Author: spetrunia

mysql-test/include/search_pattern_in_file.inc

@@ -45,14 +45,13 @@
 
 perl;
     use strict;
-    use autodie qw(open);
     die "SEARCH_FILE not set" unless $ENV{SEARCH_FILE};
     my @search_files= glob($ENV{SEARCH_FILE});
     my $search_pattern= $ENV{SEARCH_PATTERN} or die "SEARCH_PATTERN not set";
     my $search_range=   $ENV{SEARCH_RANGE};
     my $content;
     foreach my $search_file (@search_files) {
-        open(FILE, '<', $search_file);
+        open(FILE, '<', $search_file) || die("Can't open file $search_file: $!");
         my $file_content;
         if ($search_range > 0) {
            read(FILE, $file_content, $search_range, 0);

storage/rocksdb/mysql-test/rocksdb/t/compact_deletes_test.inc

@@ -39,15 +39,15 @@ let $wait_condition = select count(*) = 0
 
 let NO_MORE_DELETES=$no_more_deletes;
 perl;
-  use autodie qw(open);
   $num_retries=240;
   $retry=0;
   print "wait_for_delete: $ENV{no_more_deletes}\n";
   while ($retry++ < $num_retries) {
     $total_d=$total_e=0;
     for $f (<$ENV{MYSQLTEST_VARDIR}/mysqld.1/data/.rocksdb/*.sst>) {
       # excluding system cf
-      open D, '-|', "$ENV{MARIAROCKS_SST_DUMP} --command=scan --output_hex --file=$f";
+      $filename= "$ENV{MARIAROCKS_SST_DUMP} --command=scan --output_hex --file=$f";
+      open(D, '-|', $filename) || die("Can't open file $filename: $!");
       while (<D>) {
         next unless /'(\d{8})/ and $1 >= 8;
         $total_d++ if /: [07]/;

storage/rocksdb/mysql-test/rocksdb/t/drop_table.test

@@ -111,7 +111,6 @@ let $wait_condition = select count(*) = 0
 # Check total compacted-away rows for all indices
 # Check that all indices have been successfully dropped
 perl;
-use autodie qw(open);
 
 sub print_array {
   $str = shift;
@@ -123,7 +122,8 @@ sub print_array {
   }
 }
 
-open F, '<', "$ENV{MYSQLTEST_VARDIR}/log/mysqld.1.err";
+$filename= "$ENV{MYSQLTEST_VARDIR}/log/mysqld.1.err";
+open(F, '<', $filename) || die("Can't open file $filename: $!");
 while (<F>) {
   %a = @b = @c = () if /CURRENT_TEST/;
   if (/Compacting away elements from dropped index \(\d+,(\d+)\): (\d+)/) {

storage/rocksdb/mysql-test/rocksdb/t/drop_table2.test

@@ -90,9 +90,9 @@ let $table = t5;
 --source drop_table_repopulate_table.inc
 
 perl;
-use autodie qw(open);
 $size+=-s $_ for (<$ENV{MYSQLTEST_VARDIR}/mysqld.1/data/.rocksdb/*.sst>);
-open(F, '>', "$ENV{MYSQLTEST_VARDIR}/tmp/size_output"); 
+$filename= "$ENV{MYSQLTEST_VARDIR}/tmp/size_output";
+open(F, '>', $filename) || die("Can't open file $filename: $!");
 print F $size;
 EOF
 drop table t1;
@@ -110,9 +110,9 @@ let $wait_condition = select count(*) = 0
 
 # Check that space is reclaimed
 perl;
-use autodie qw(open);
 $size+=-s $_ for (<$ENV{MYSQLTEST_VARDIR}/mysqld.1/data/.rocksdb/*.sst>);
-open(F, '<', "$ENV{MYSQLTEST_VARDIR}/tmp/size_output"); 
+$filename= "$ENV{MYSQLTEST_VARDIR}/tmp/size_output";
+open(F, '<', $filename) || die("Can't open file $filename: $!");
 $old=<F>;
 print "Compacted\n" if $old > $size * 2;
 EOF

storage/rocksdb/mysql-test/rocksdb/t/optimize_table.inc

@@ -1,12 +1,11 @@
 # run a check script to verify sst files reduced enough during each optimize table
 perl;
-use autodie qw(open);
 
 $size += -s $_ for (<$ENV{datadir}/.rocksdb/*.sst>);
 $file= "$ENV{MYSQL_TMP_DIR}/sst_size.dat";
 
 if (-f $file) {
-  open(F, '<', $file);
+  open(F, '<', $file) || die("Can't open file $file: $!");
   $old = <F>;
   close F;
   if ($old - $size < 1e6) {
@@ -15,7 +14,7 @@ if (-f $file) {
     print "sst file reduction ok\n";
   }
 }
-open(F, '>', $file);
+open(F, '>', $file) || die("Can't open file $file: $!");
 print F $size;
 close F;
 EOF

storage/rocksdb/mysql-test/rocksdb/t/rocksdb_checksums.test

@@ -53,12 +53,12 @@ while ($i<10000)
 --enable_query_log
 check table t4;
 perl;
-use autodie qw(open);
 $total=10000;
 $pct=5;
 @out=();
 
-open(F, '<', "$ENV{MYSQLTEST_VARDIR}/log/mysqld.1.err");
+$filename= "$ENV{MYSQLTEST_VARDIR}/log/mysqld.1.err";
+open(F, '<', $filename) || die("Can't open file $filename: $!");
 while(<F>) {
   @out=() if /^CURRENT_TEST:/;
   if (/(\d+) index entries checked \((\d+) had checksums/) {