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

Add _d() to Percona/XtraDB/Cluster.pm.

Browse Source
This commit is contained in:
Daniel Nichter
2012-11-17 12:28:47 -07:00
parent a71759640a
commit e47a84daba
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/Percona/XtraDB/Cluster.pm
View File

@@ -119,5 +119,13 @@ sub _find_full_gcomm_addr {
return $full_gcomm; return $full_gcomm;
} }
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; 1;
} }