percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 13:40:07 +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/MemcachedEvent.pm
View File

@@ -30,7 +30,7 @@ package MemcachedEvent;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
use Data::Dumper;
$Data::Dumper::Indent = 1;
@@ -77,12 +77,12 @@ sub parse_event {
return unless $event;
if ( !$event->{cmd} || !$event->{key} ) {
MKDEBUG && _d('Event has no cmd or key:', Dumper($event));
PTDEBUG && _d('Event has no cmd or key:', Dumper($event));
return;
}
if ( !$cmds{$event->{cmd}} ) {
MKDEBUG && _d("Don't know how to handle cmd:", $event->{cmd});
PTDEBUG && _d("Don't know how to handle cmd:", $event->{cmd});
return;
}
@@ -106,7 +106,7 @@ sub parse_event {
}
else {
# This normally happens with incr and decr cmds.
MKDEBUG && _d('Event has no res:', Dumper($event));
PTDEBUG && _d('Event has no res:', Dumper($event));
}
# Handle special results, errors, etc. The handler should return the
@@ -143,7 +143,7 @@ sub handle_storage_cmd {
# There should be a result for any storage cmd.
if ( !$event->{res} ) {
MKDEBUG && _d('No result for event:', Dumper($event));
PTDEBUG && _d('No result for event:', Dumper($event));
return;
}
@@ -167,7 +167,7 @@ sub handle_retr_cmd {
# There should be a result for any retr cmd.
if ( !$event->{res} ) {
MKDEBUG && _d('No result for event:', Dumper($event));
PTDEBUG && _d('No result for event:', Dumper($event));
return;
}