summaryrefslogtreecommitdiff
path: root/mysql-test/suite/innodb/t
diff options
context:
space:
mode:
authorMarko Mäkelä <marko.makela@mariadb.com>2017-03-24 19:17:23 +0200
committerMarko Mäkelä <marko.makela@mariadb.com>2017-03-24 19:17:23 +0200
commit23d72bf3aa9b16c0b1250ed1a04bdf18eea9754a (patch)
treed3149a83b06cafbdbdb333e0b93000b42f871adb /mysql-test/suite/innodb/t
parentcd2fe26116930220666281949fb7af81f3cc2b28 (diff)
downloadmariadb-git-23d72bf3aa9b16c0b1250ed1a04bdf18eea9754a.tar.gz
Close a file handle in a Perl snippet.
This could fix a race condition between mysqld and perl on Windows.
Diffstat (limited to 'mysql-test/suite/innodb/t')
-rw-r--r--mysql-test/suite/innodb/t/log_corruption.test1
1 files changed, 1 insertions, 0 deletions
diff --git a/mysql-test/suite/innodb/t/log_corruption.test b/mysql-test/suite/innodb/t/log_corruption.test
index 2e628065199..7cfbda181e0 100644
--- a/mysql-test/suite/innodb/t/log_corruption.test
+++ b/mysql-test/suite/innodb/t/log_corruption.test
@@ -231,6 +231,7 @@ print OUT pack("H*x[212]Nx[1024]", "590DBAACFE922582", 0xc72d49c4);
# redo log data
print OUT pack("H*x[5]", "C0DEBA5E0022000c0000000138");
print OUT pack("H*x[475]H*", "12860cb7809781e80006626f677573", "089C0ADA");
+close OUT or die;
EOF
--copy_file $bugdir/ib_logfile0 $bugdir/ib_logfile
# Anything below innodb_force_recovery=6 must find an invalid redo log.