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

Debug Daemon.t failures.

Browse Source
This commit is contained in:
Daniel Nichter
2012-02-14 08:58:10 -07:00
parent 6bb7756c09
commit c943f7a0da
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/PerconaTest.pm
View File

@@ -617,6 +617,14 @@ sub get_master_binlog_pos {
return $ms->{position};
}
sub _d {
my ($package, undef, $line) = caller 0;
@_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
map { defined $_ ? $_ : 'undef' }
@_;
print STDERR "# $package:$line $PID ", join(' ', @_), "\n";
}
1;
}
# ###########################################################################