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

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

8
lib/MySQLConfigComparer.pm
View File

@@ -25,7 +25,7 @@ package MySQLConfigComparer;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
# Alternate values because a config file can have var=ON and then be shown
# in SHOW VARS as var=TRUE. I.e. there's several synonyms for basic
@@ -159,7 +159,7 @@ sub diff {
my ($configs) = @args{@required_args};
if ( @$configs < 2 ) {
MKDEBUG && _d("Less than two MySQLConfig objects; nothing to compare");
PTDEBUG && _d("Less than two MySQLConfig objects; nothing to compare");
return;
}
@@ -216,7 +216,7 @@ sub diff {
# We reach here if no comparison above was true and skipped
# to the next CONFIG. So reaching here means the values are
# different. We save the real, not-normalized values.
MKDEBUG && _d("Different", $var, "values:", $val0, $valN);
PTDEBUG && _d("Different", $var, "values:", $val0, $valN);
$diffs->{$var} = [ map { $_->value_of($var) } @$configs ];
last CONFIG;
} # CONFIG
@@ -262,7 +262,7 @@ sub missing {
my ($configs) = @args{@required_args};
if ( @$configs < 2 ) {
MKDEBUG && _d("Less than two MySQLConfig objects; nothing to compare");
PTDEBUG && _d("Less than two MySQLConfig objects; nothing to compare");
return;
}