Ignore:
Timestamp:
05/18/17 14:39:49 (4 years ago)
Author:
kjdon
Message:

removing debug statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/CommonUtil.pm

    r31494 r31688  
    119119    my ($verbosity, $outhandle, $failhandle) = @_;
    120120
    121     print STDERR "guess encoding = ".$self->guess_filesystem_encoding()."\n";
    122     print STDERR "get encoding = ".$self->get_filesystem_encoding()."\n";
    123 
    124121    # verbosity is passed through from the processor
    125122    $self->{'verbosity'} = $verbosity;
     
    487484       
    488485    }
    489         print STDERR "guessing filesystem encoding is $deduced_filename_encoding\n";
    490         return $deduced_filename_encoding;
     486   return $deduced_filename_encoding;
    491487}
    492488
     
    589585    my $self = shift (@_);
    590586    my ($block_hash,$filename_full_path) = @_;
    591     print STDERR "in block filename $filename_full_path\n";
    592     print STDERR &unicode::debug_unicode_string($filename_full_path)."\n";
    593587     
    594588    if (($ENV{'GSDLOS'} =~ m/^windows$/) && ($^O ne "cygwin")) {
     
    603597    # we need to normalize the filenames
    604598        my $composed_filename_full_path = normalize('C', $filename_full_path);
    605         print STDERR "darwin, composed filename =". &unicode::debug_unicode_string($composed_filename_full_path)."\n";
     599       ## print STDERR "darwin, composed filename =". &unicode::debug_unicode_string($composed_filename_full_path)."\n";
    606600        $block_hash->{'file_blocks'}->{$composed_filename_full_path} = 1;
    607601   }
     
    628622
    629623    #
    630     print STDERR "in file is blocked $filename_full_path\n";
    631     print STDERR &unicode::debug_unicode_string($filename_full_path)."\n";
    632624    if (($ENV{'GSDLOS'} =~ m/^windows$/) && ($^O ne "cygwin")) {
    633625    # convert to long filenames if needed
     
    644636    # on mac, we want composed form in the block hash   
    645637        my $composed_form = normalize('C', $filename_full_path);
    646         print STDERR "gsdlos = darwin, composed = ". &unicode::debug_unicode_string($composed_form) ."\n";
    647638        if (defined $block_hash->{'file_blocks'}->{$composed_form}) {
    648639            $self->{'num_blocked'} ++;
    649             print STDERR "BLOCKED 1\n";
    650640            return 1;
    651641        }
     
    655645    if (defined $block_hash->{'file_blocks'}->{$filename_full_path}) {
    656646        $self->{'num_blocked'} ++;
    657         print STDERR "BLOCKED\n";
    658647        return 1;
    659648    }
     
    664653    return 1; # blocked
    665654    }
    666     print STDERR "NOT BLOCKED\n";
    667655    return 0;
    668656}
Note: See TracChangeset for help on using the changeset viewer.