percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-02 02:34:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

v-c: Updated to identify and report every instance, and to skip instances already version-checked that day

Browse Source
This commit is contained in:
Brian Fraser
2012-08-24 19:09:59 -03:00
parent 36a0dff6ee
commit 9f79d4b7ba
6 changed files with 158 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/PerconaTest.pm
View File

@@ -33,6 +33,8 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant PTDEVDEBUG => $ENV{PTDEVDEBUG} || 0;
use Percona::Toolkit;
use Test::More;
use Time::HiRes qw(sleep time);
use File::Temp qw(tempfile);
@@ -211,13 +213,7 @@ sub load_file {
return $contents;
}
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 slurp_file { Percona::Toolkit::slurp_file(@_) }
sub parse_file {
my ( $file, $p, $ea ) = @_;