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

Fix/update t/pt-agent/init_agent.t.

Browse Source
This commit is contained in:
Daniel Nichter
2013-03-19 14:44:02 -06:00
parent 2291a3c6c6
commit 70c28272a7
2 changed files with 22 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Percona/Test.pm
View File

@@ -150,6 +150,12 @@ sub output {
die "I need a code argument" unless $code;
my ($file, $stderr, $die, $trf) = @args{qw(file stderr die trf)};
if ( $args{debug} ) {
my $retval = eval { $code->() };
warn $EVAL_ERROR if $EVAL_ERROR;
return $retval;
}
my $output = '';
{
if ( $file ) {