percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-18 16:40:23 +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/EventTimeline.pm
View File

@@ -25,7 +25,7 @@ package EventTimeline;
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(parse_timestamp secs_to_time unix_timestamp));
@@ -101,7 +101,7 @@ sub make_handler {
my $type = $val =~ m/^(?:\d+|$float_re)$/o ? 'num'
: $val =~ m/^(?:Yes|No)$/ ? 'bool'
: 'string';
MKDEBUG && _d('Type for', $attrib, 'is', $type, '(sample:', $val, ')');
PTDEBUG && _d('Type for', $attrib, 'is', $type, '(sample:', $val, ')');
$self->{type_for}->{$attrib} = $type;
push @lines, (
@@ -156,7 +156,7 @@ sub make_handler {
my $code = join("\n", @lines);
$self->{code} = $code;
MKDEBUG && _d('Timeline handler:', $code);
PTDEBUG && _d('Timeline handler:', $code);
my $sub = eval $code;
die if $EVAL_ERROR;
return $sub;