Replace the last instances of MKDEBUG

This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-06-05 12:28:36 -03:00
parent 6b93d51e43
commit 345a21a82e
22 changed files with 278 additions and 278 deletions
+1 -1
View File
@@ -49,7 +49,7 @@ $cmd = "$trunk/bin/pt-query-digest "
$ENV{PTDEBUG}=1;
`$cmd > /tmp/read_only.txt 2>&1 &`;
$ENV{MKDEBUG}=0;
$ENV{PTDEBUG}=0;
sleep 3;
$dbh1->do('select sleep(1)');
@@ -5,7 +5,7 @@ if ( $event->{ts} ) {
($year, $month, $day, $hour)
= $event->{ts} =~ /^(\d\d)(\d\d)(\d\d)\s+(\d\d):/;
}
MKDEBUG && _d('ymdh:', $year, $month, $day, $hour);
PTDEBUG && _d('ymdh:', $year, $month, $day, $hour);
$event->{year} = $year || 0;
$event->{month} = $month || 0;
$event->{day} = $day || 0;
@@ -16,7 +16,7 @@ $event->{hour} = $hour || 24; # 0 is a valid hour
my $ok = 1;
foreach my $filter ( qw(YEAR MONTH HOUR DAY) ) {
if ( $ENV{$filter} && $event->{lc $filter} != $ENV{$filter} ) {
MKDEBUG && _d('Event does not match', $filter, '=', $ENV{$filter});
PTDEBUG && _d('Event does not match', $filter, '=', $ENV{$filter});
$ok = 0;
last;
}