percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-18 17:58:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Lose dependency on File::Slurp append_file and prepend_file

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-11-12 10:37:13 -03:00
parent 31ca347984
commit d63fd536f0
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
t/lib/SchemaIterator.t
View File

@@ -443,13 +443,12 @@ SKIP: {
# Truncate the .myi file to corrupt it
truncate($myi, 4096);
use File::Slurp qw( prepend_file append_file write_file );
use File::Slurp qw( write_file );
# Corrupt the .frm file
open my $urand_fh, q{<}, "/dev/urandom"
or die "Cannot open /dev/urandom";
prepend_file($frm, scalar(<$urand_fh>));
append_file($frm, scalar(<$urand_fh>));
write_file($frm, scalar(<$urand_fh>), slurp_file($frm), scalar(<$urand_fh>));
close $urand_fh;
$dbh3->do("FLUSH TABLES");