Merge lp:~percona-toolkit-dev/percona-toolkit/collect-without-stalking.

This commit is contained in:
Daniel Nichter
2012-03-02 08:16:55 -08:00
3 changed files with 105 additions and 22 deletions

View File

@@ -294,6 +294,16 @@ sub wait_for_files {
);
}
sub wait_for_sh {
my ($cmd) = @_;
return wait_until(
sub {
my $retval = system("$cmd 2>/dev/null");
return $retval >> 8 == 0 ? 1 : 0;
}
);
};
sub _read {
my ( $fh ) = @_;
return <$fh>;