percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-20 09:40:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add back PerconaTest::slurp_file(). Put in scope in pt-index-usage. Sort MySQL instance IDs for testing. Wait for pid file in pt-heartbeat/basics.t.

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-28 15:28:34 -06:00
parent 8afb9ea5ff
commit a3950411b9
5 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/PerconaTest.pm
View File

@@ -213,7 +213,13 @@ sub load_file {
return $contents;
}
sub slurp_file { Percona::Toolkit::slurp_file(@_) }
sub slurp_file {
my ($file) = @_;
open my $fh, "<", $file or die "Cannot open $file: $OS_ERROR";
my $contents = do { local $/ = undef; <$fh> };
close $fh;
return $contents;
}
sub parse_file {
my ( $file, $p, $ea ) = @_;