percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-25 04:06:33 +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

12
lib/Advisor.pm
View File

@@ -25,7 +25,7 @@ package Advisor;
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
#
@@ -63,7 +63,7 @@ sub new {
sub load_rules {
my ( $self, $advisor ) = @_;
return unless $advisor;
MKDEBUG && _d('Loading rules from', ref $advisor);
PTDEBUG && _d('Loading rules from', ref $advisor);
# Starting index value in rules arrayref for these rules.
# This is >0 if rules from other advisor modules have
@@ -74,7 +74,7 @@ sub load_rules {
foreach my $rule ( $advisor->get_rules() ) {
my $id = $rule->{id};
if ( $self->{ignore_rules}->{"$id"} ) {
MKDEBUG && _d("Ignoring rule", $id);
PTDEBUG && _d("Ignoring rule", $id);
next RULE;
}
die "Rule $id already exists and cannot be redefined"
@@ -95,7 +95,7 @@ sub load_rules {
sub load_rule_info {
my ( $self, $advisor ) = @_;
return unless $advisor;
MKDEBUG && _d('Loading rule info from', ref $advisor);
PTDEBUG && _d('Loading rule info from', ref $advisor);
my $rules = $self->{rules};
foreach my $rule ( @$rules ) {
my $id = $rule->{id};
@@ -134,14 +134,14 @@ sub run_rules {
my $match = $rule->{code}->(%args);
if ( $match_type eq 'pos' ) {
if ( defined $match ) {
MKDEBUG && _d('Matches rule', $rule->{id}, 'near pos', $match);
PTDEBUG && _d('Matches rule', $rule->{id}, 'near pos', $match);
push @matched_rules, $rule->{id};
push @matched_pos, $match;
}
}
elsif ( $match_type eq 'bool' ) {
if ( $match ) {
MKDEBUG && _d("Matches rule", $rule->{id});
PTDEBUG && _d("Matches rule", $rule->{id});
push @matched_rules, $rule->{id};
}
}