percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-02-27 02:00:57 +08: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

8
lib/FileIterator.pm
View File

@@ -25,7 +25,7 @@ package FileIterator;
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 {
my ( $class, %args ) = @_;
@@ -71,14 +71,14 @@ sub get_file_itr {
# If the list of files is empty, read from STDIN.
if ( !@filenames ) {
push @final_filenames, '-';
MKDEBUG && _d('Auto-adding "-" to the list of filenames');
PTDEBUG && _d('Auto-adding "-" to the list of filenames');
}
MKDEBUG && _d('Final filenames:', @final_filenames);
PTDEBUG && _d('Final filenames:', @final_filenames);
return sub {
while ( @final_filenames ) {
my $fn = shift @final_filenames;
MKDEBUG && _d('Filename:', $fn);
PTDEBUG && _d('Filename:', $fn);
if ( $fn eq '-' ) { # Magical STDIN filename.
return (*STDIN, undef, undef);
}