Changeset 22953 for main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

Timestamp:

2010-09-23T17:23:28+12:00 (14 years ago)

Author:

davidb

Message:

Further code tweaks to correctly support Unicode aware strings in our plugin code

File:

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

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

@@ -1015 +1015 @@
     my ($textref, $filename) = @_;
     
-    if (!open (FILE, ">$filename")) {
+    if (!open (FILE, ">:utf8", $filename)) {
     gsprintf(STDERR, "ConvertToPlug::write_file {ConvertToPlug.could_not_open_for_writing} ($!)\n", $filename);
      die "\n";