Changeset 15607

Timestamp:

2008-05-21T11:45:59+12:00 (16 years ago)

Author:

ak19

Message:

Dr Bainbridge corrected call to encodings::encodings (previously encodings::encoding which was not correct)

File:

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

gsdl/trunk/perllib/plugins/BasPlug.pm

@@ -833 +833 @@
 
         if ($char_encoding =~ m/^\d+$/) {
-        if (defined $encodings::encoding->{"windows_$char_encoding"}) {
+        if (defined $encodings::encodings->{"windows_$char_encoding"}) {
             $char_encoding = "windows_$char_encoding";
         }
-        elsif (defined $encodings::encoding->{"dos_$char_encoding"}) {
+        elsif (defined $encodings::encodings->{"dos_$char_encoding"}) {
             $char_encoding = "dos_$char_encoding";
         }