database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-27 18:02:13 +03:00
Code Activity

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

Browse Source 
Don't use Perl autodie module as there are platforms where it is not present
This commit is contained in:
Sergei Petrunia
2017-04-02 12:18:23 +03:00
parent 74889de426
commit 20d9fbcf9a
6 changed files with 13 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
mysql-test/include/search_pattern_in_file.inc
View File

@ -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);