Changeset 31688

Show
Ignore:
Timestamp:
18.05.2017 14:39:49 (3 years ago)
Author:
kjdon
Message:

removing debug statements

Files:
1 modified

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}