Changeset 7644

Timestamp:

2004-06-25T15:39:24+12:00 (20 years ago)

Author:

jrm21

Message:

don't print "wrong encoding" message for text in english.
textcat thinks all english is in iso-8859-1, so basplug complains if the
file was read as utf8.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -577 +577 @@
         ($language, $extracted_encoding) = $self->get_language_encoding ($filename);
         $encoding = $self->{'input_encoding'};
-        if ($extracted_encoding ne $encoding && $self->{'verbosity'}) {
+    # don't print this message for english... english in utf8 is identical
+    # to english in iso-8859-1 (except for some punctuation). We don't have
+    # a language model for en_utf8, so textcat always says iso-8859-1!
+        if ($extracted_encoding ne $encoding && $language ne "en"
+        && $self->{'verbosity'}) {
         my $plugin_name = ref ($self);
         my $outhandle = $self->{'outhandle'};