Skip to content

M
MariaDB
Commit 6459e2c3 authored by Marko Mäkelä's avatar Marko Mäkelä
Browse files
Options

Make the implicit unpack parameter explicit in the Bug #60049 test.

parent cb884043
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 4 deletions
mysql-test/suite/innodb/t/innodb_bug60049.test
View file @ 6459e2c3
...@@ -23,13 +23,13 @@ open(FILE, "<$file") || die "Unable to open $file"; ...@@ -23,13 +23,13 @@ open(FILE, "<$file") || die "Unable to open $file";
# Read DICT_HDR_TABLE_IDS, the root page number of ID_IND (SYS_TABLES.ID). # Read DICT_HDR_TABLE_IDS, the root page number of ID_IND (SYS_TABLES.ID).
seek(FILE, 7*16384+38+36, 0) || die "Unable to seek $file"; seek(FILE, 7*16384+38+36, 0) || die "Unable to seek $file";
die unless read(FILE, $_, 4) == 4; die unless read(FILE, $_, 4) == 4;
my $sys_tables_id_root = unpack "N"; my $sys_tables_id_root = unpack("N", $_);
print "Last record of ID_IND root page ($sys_tables_id_root):\n"; print "Last record of ID_IND root page ($sys_tables_id_root):\n";
# This should be the last record in ID_IND. Dump it in hexadecimal. # This should be the last record in ID_IND. Dump it in hexadecimal.
seek(FILE, $sys_tables_id_root*16384 + 152, 0) || die "Unable to seek $file"; seek(FILE, $sys_tables_id_root*16384 + 152, 0) || die "Unable to seek $file";
read(FILE, $_, 32) || die "Unable to read $file"; read(FILE, $_, 32) || die "Unable to read $file";
close(FILE); close(FILE);
print unpack("H*"),"\n"; print unpack("H*", $_), "\n";
EOF EOF
# Restart the server. # Restart the server.
......
mysql-test/suite/innodb_plugin/t/innodb_bug60049.test
View file @ 6459e2c3
...@@ -23,13 +23,13 @@ open(FILE, "<$file") || die "Unable to open $file"; ...@@ -23,13 +23,13 @@ open(FILE, "<$file") || die "Unable to open $file";
# Read DICT_HDR_TABLE_IDS, the root page number of ID_IND (SYS_TABLES.ID). # Read DICT_HDR_TABLE_IDS, the root page number of ID_IND (SYS_TABLES.ID).
seek(FILE, 7*16384+38+36, 0) || die "Unable to seek $file"; seek(FILE, 7*16384+38+36, 0) || die "Unable to seek $file";
die unless read(FILE, $_, 4) == 4; die unless read(FILE, $_, 4) == 4;
my $sys_tables_id_root = unpack "N"; my $sys_tables_id_root = unpack("N", $_);
print "Last record of ID_IND root page ($sys_tables_id_root):\n"; print "Last record of ID_IND root page ($sys_tables_id_root):\n";
# This should be the last record in ID_IND. Dump it in hexadecimal. # This should be the last record in ID_IND. Dump it in hexadecimal.
seek(FILE, $sys_tables_id_root*16384 + 152, 0) || die "Unable to seek $file"; seek(FILE, $sys_tables_id_root*16384 + 152, 0) || die "Unable to seek $file";
read(FILE, $_, 32) || die "Unable to read $file"; read(FILE, $_, 32) || die "Unable to read $file";
close(FILE); close(FILE);
print unpack("H*"),"\n"; print unpack("H*", $_), "\n";
EOF EOF
# Restart the server. # Restart the server.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7