Changeset 23458 for main/trunk/greenstone2

Timestamp:

2010-12-13T14:24:37+13:00 (13 years ago)

Author:

kjdon

Message:

added a check that deduced_filename_encoding is defined before testing its value - it wasn't getting defined on kanuka

File:

• main/trunk/greenstone2/perllib/plugins/BasePlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

@@ -896 +896 @@
         # => if not, then we have an "alien" filename on our hands
 
-        if ($deduced_filename_encoding =~ m/^utf-?8$/i) {
+        if (defined $deduced_filename_encoding && $deduced_filename_encoding =~ m/^utf-?8$/i) {
         if (!&unicode::check_is_utf8($file)) {
             # "alien" filename, so revert