Changeset 22855

Timestamp:

2010-09-06T17:26:46+12:00 (13 years ago)

Author:

davidb

Message:

added ':utf8' to call to open file handle

File:

• main/trunk/greenstone2/perllib/doc.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/doc.pm

@@ -276 +276 @@
     my ($filename) = @_;
 
+
     my $osexe = &util::get_os_exe();
 
@@ -282 +283 @@
 
     my $result = "NULL";
+
     
     if (-e "$hashfile_exe") {
@@ -352 +354 @@
         # "hash" OID - feed file to hashfile.exe
         my $filename = $self->get_filename_for_hashing();
+
         # -z: don't want to hash on the file if it is zero size
         if (defined($filename) && -e $filename && !-z $filename) {
@@ -361 +364 @@
         if (!$hash_on_file) {
         my $filename = &util::get_tmp_filename();
-        if (!open (OUTFILE, ">$filename")) {
+        if (!open (OUTFILE, ">:utf8", $filename)) {
             print STDERR "doc::set_OID could not write to $filename\n";
         } else {