Skip to content

Commit

Permalink
101_compatibility test fails on CentOS 5
Browse files Browse the repository at this point in the history
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
  • Loading branch information
elenst committed Jan 16, 2017
1 parent 34c89d0 commit 3a91dec
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion mysql-test/suite/innodb/include/ibd_convert.pl
Original file line number Diff line number Diff line change
Expand Up @@ -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);
Expand Down

0 comments on commit 3a91dec

Please sign in to comment.