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

Replace MKDEBUG with PTDEBUG in modules.

Browse Source
This commit is contained in:
Daniel Nichter
2012-01-19 12:46:56 -07:00
parent 97f42e9c07
commit 88304e69fb
83 changed files with 1234 additions and 1234 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/CopyRowsInsertSelect.pm
View File

@@ -26,7 +26,7 @@ package CopyRowsInsertSelect;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
# Sub: new
#
@@ -79,7 +79,7 @@ sub copy {
$msg->($sql);
}
else {
MKDEBUG && _d($dbh, $sql);
PTDEBUG && _d($dbh, $sql);
my $error;
$self->{Retry}->retry(
wait => sub { sleep 1; },
@@ -91,7 +91,7 @@ sub copy {
fail => sub {
my (%args) = @_;
my $error = $args{error};
MKDEBUG && _d($error);
PTDEBUG && _d($error);
if ( $error =~ m/Lock wait timeout exceeded/ ) {
$msg->("Lock wait timeout exceeded; retrying $sql");
return 1; # call wait, call try