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

Use Percona::Toolkit::_d() and Dumper(). Set Lmo::VERSION=0.01.

Browse Source
This commit is contained in:
Daniel Nichter
2012-12-24 14:48:02 -07:00
parent 861cc8fd96
commit 0083216a6c
3 changed files with 5 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/PerconaTest.pm
View File

@@ -39,10 +39,6 @@ use Test::More;
use Time::HiRes qw(sleep time);
use File::Temp qw(tempfile);
use POSIX qw(signal_h);
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Quotekeys = 0;
require Exporter;
our @ISA = qw(Exporter);
@@ -710,15 +706,6 @@ sub get_slave_pos_relative_to_master {
return $ss->{exec_master_log_pos};
}
sub _d {
my ($package, undef, $line) = caller 0;
@_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
map { defined $_ ? $_ : 'undef' }
@_;
my $t = sprintf '%.3f', time;
print STDERR "# $package:$line $PID $t ", join(' ', @_), "\n";
}
# Like output(), but forks a process to execute the coderef.
# This is because otherwise, errors thrown during cleanup
# would be skipped.