percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-19 10:34:01 +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 the .myi file to corrupt it
truncate($myi, 4096); truncate($myi, 4096);
use File::Slurp qw( prepend_file append_file write_file ); use File::Slurp qw( write_file );
# Corrupt the .frm file # Corrupt the .frm file
open my $urand_fh, q{<}, "/dev/urandom" open my $urand_fh, q{<}, "/dev/urandom"
or die "Cannot open /dev/urandom"; or die "Cannot open /dev/urandom";
prepend_file($frm, scalar(<$urand_fh>)); write_file($frm, scalar(<$urand_fh>), slurp_file($frm), scalar(<$urand_fh>));
append_file($frm, scalar(<$urand_fh>));
close $urand_fh; close $urand_fh;
$dbh3->do("FLUSH TABLES"); $dbh3->do("FLUSH TABLES");