Changeset 17212

Timestamp:

2008-09-08T13:37:40+12:00 (16 years ago)

Author:

ak19

Message:

Removed some unnecessary commented-out code

File:

• gsdl/trunk/perllib/plugins/BasePlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -625 +625 @@
     my $best_encoding = undef;
    
-    # get the language/encoding of the file using textcat
+    # get the language/encoding of the textstring using textcat
     $self->{'textcat'} = new textcat() unless defined($self->{'textcat'});
-    #my $results = $self->{'textcat'}->classify(\$text);
     my $results = $self->{'textcat'}->classify_cached_filename(\$text);
 
@@ -635 +634 @@
     }
     
-##    print STDERR "**** TEXTCAT RESULTS for $text: ";
-##    print STDERR join(",", @$results);
-##    print STDERR "\n";
-
     # We have some results, we choose the first
     my ($language, $encoding) = $results->[0] =~ /^([^-]*)(?:-(.*))?$/;