Changeset 31688 for main/trunk/greenstone2

Timestamp:

2017-05-18T14:39:49+12:00 (7 years ago)

Author:

kjdon

Message:

removing debug statements

File:

• main/trunk/greenstone2/perllib/plugins/CommonUtil.pm (modified) (8 diffs)

main/trunk/greenstone2/perllib/plugins/CommonUtil.pm

@@ -119 +119 @@
     my ($verbosity, $outhandle, $failhandle) = @_;
 
-    print STDERR "guess encoding = ".$self->guess_filesystem_encoding()."\n";
-    print STDERR "get encoding = ".$self->get_filesystem_encoding()."\n";
-
     # verbosity is passed through from the processor
     $self->{'verbosity'} = $verbosity;
@@ -487 +484 @@
         
     }
-        print STDERR "guessing filesystem encoding is $deduced_filename_encoding\n";
-        return $deduced_filename_encoding;
+   return $deduced_filename_encoding;
 }
 
@@ -589 +585 @@
     my $self = shift (@_);
     my ($block_hash,$filename_full_path) = @_;
-    print STDERR "in block filename $filename_full_path\n";
-    print STDERR &unicode::debug_unicode_string($filename_full_path)."\n";
      
     if (($ENV{'GSDLOS'} =~ m/^windows$/) && ($^O ne "cygwin")) {
@@ -603 +597 @@
     # we need to normalize the filenames
         my $composed_filename_full_path = normalize('C', $filename_full_path);
-        print STDERR "darwin, composed filename =". &unicode::debug_unicode_string($composed_filename_full_path)."\n";
+       ## print STDERR "darwin, composed filename =". &unicode::debug_unicode_string($composed_filename_full_path)."\n";
         $block_hash->{'file_blocks'}->{$composed_filename_full_path} = 1;
    }
@@ -628 +622 @@
 
     # 
-    print STDERR "in file is blocked $filename_full_path\n";
-    print STDERR &unicode::debug_unicode_string($filename_full_path)."\n";
     if (($ENV{'GSDLOS'} =~ m/^windows$/) && ($^O ne "cygwin")) {
     # convert to long filenames if needed
@@ -644 +636 @@
     # on mac, we want composed form in the block hash    
         my $composed_form = normalize('C', $filename_full_path);
-        print STDERR "gsdlos = darwin, composed = ". &unicode::debug_unicode_string($composed_form) ."\n";
         if (defined $block_hash->{'file_blocks'}->{$composed_form}) {
             $self->{'num_blocked'} ++;
-            print STDERR "BLOCKED 1\n";
             return 1;
         }
@@ -655 +645 @@
     if (defined $block_hash->{'file_blocks'}->{$filename_full_path}) {
         $self->{'num_blocked'} ++;
-        print STDERR "BLOCKED\n";
         return 1;
     }
@@ -664 +653 @@
     return 1; # blocked
     }
-    print STDERR "NOT BLOCKED\n";
     return 0;
 }