diff options
| author | Elena Stepanova <elenst@montyprogram.com> | 2017-01-16 02:36:31 +0200 |
|---|---|---|
| committer | Elena Stepanova <elenst@montyprogram.com> | 2017-01-16 02:36:31 +0200 |
| commit | 3a91dec1243773627d08965e7e258571a7844deb (patch) | |
| tree | b5fcb40b5c0da61544e3b6ff4b6c213243909bc1 | |
| parent | 34c89d01d285f4e08de2bbb940e30cabffdf1548 (diff) | |
| download | mariadb-git-3a91dec1243773627d08965e7e258571a7844deb.tar.gz | |
101_compatibility test fails on CentOS 5
Apparently, in older versions of Perl unpack does not have a logic
for using $_ as a default value for the second argument. Fixed by
specifying it explicitly
| -rw-r--r-- | mysql-test/suite/innodb/include/ibd_convert.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mysql-test/suite/innodb/include/ibd_convert.pl b/mysql-test/suite/innodb/include/ibd_convert.pl index aba742ac649..32eef96fd23 100644 --- a/mysql-test/suite/innodb/include/ibd_convert.pl +++ b/mysql-test/suite/innodb/include/ibd_convert.pl @@ -10,7 +10,7 @@ sub convert_to_mariadb_101 sysseek(FILE, 0, 0)||die "Unable to seek $file\n"; # FIL_PAGE_DATA + FSP_SPACE_FLAGS = 38 + 16 = 54 bytes from the start - my($flags) = unpack "x[54]N"; + my($flags) = unpack "x[54]N", $_; my $badflags = ($flags & 0x3f); my $compression_level=6; $badflags |= 1<<6|$compression_level<<7 if ($flags & 1 << 16); |