Changeset 25411 for main/trunk/greenstone2

Timestamp:

2012-04-18T10:39:00+12:00 (12 years ago)

Author:

jmt12

Message:

Adding in test when storing output handle to prevent binmode() function being called on output handles that aren't GLOBs (such as the objects returned by GDBMServer and TDBServer)

File:

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

main/trunk/greenstone2/perllib/basebuildproc.pm

@@ -195 +195 @@
 
     $self->{'output_handle'} = $handle;
+    # The output handle isn't always an actual handle. In a couple of the
+    # database drivers (MSSQL and GDBMServer) it's actually a reference
+    # to an object. Thus we need to test the type before setting binmode.
+    # [jmt12]
+    if (ref $handle eq "GLOB")
+    {
+      binmode($handle,":utf8");
+    }
     binmode($handle,":utf8");
 }