Changeset 15446

Timestamp:

2008-05-14T15:22:07+12:00 (16 years ago)

Author:

davidb

Message:

Fixed incorrect variable name. ::encoding needed as 's' at the end.

File:

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

gsdl/trunk/perllib/plugins/BasPlug.pm

@@ -825 +825 @@
     if ($current_locale =~ m/^.*\.(.*?)$/) {
         my $char_encoding = lc($1);
+        if ($char_encoding =~ m/^(iso)(8859)(\d{1,2})$/) {
+        $char_encoding = "$1\_$2\_$3";
+        }
+
         $char_encoding =~ s/-/_/g;
         $char_encoding =~ s/^utf_8$/utf8/;
@@ -838 +842 @@
 
         if (($char_encoding =~ m/(?:ascii|utf8|unicode)/) 
-        || (defined $encodings::encoding->{$char_encoding})) {
+        || (defined $encodings::encodings->{$char_encoding})) {
         $filesystem_encoding = $char_encoding;
         }