percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 05:29:30 +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/CompareQueryTimes.pm
View File

@@ -25,7 +25,7 @@ package CompareQueryTimes;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
Transformers->import(qw(micro_t));
use POSIX qw(floor);
@@ -96,11 +96,11 @@ sub execute {
my ($event, $dbh) = @args{@required_args};
if ( exists $event->{Query_time} ) {
MKDEBUG && _d('Query already executed');
PTDEBUG && _d('Query already executed');
return $event;
}
MKDEBUG && _d('Executing query');
PTDEBUG && _d('Executing query');
my $query = $event->{arg};
my ( $start, $end, $query_time );