Changeset 17212

Timestamp:

2008-09-08 13:37:40 (3 months ago)

Author:

ak19

Message:

Removed some unnecessary commented-out code

Files:

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

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -625 +625 @@
-    my $best_encoding = undef;
-   
-file
+textstring
-    $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] =~ /^([^-]*)(?:-(.*))?$/;