Changeset 24669 for gs2-extensions/parallel-building/trunk

Timestamp:

2011-09-27T12:46:15+13:00 (13 years ago)

Author:

jmt12

Message:

Added a test before trying to twiddle binmode on the infodb_handle to ensure it is actually a handle, and not a reference to an object like what it returned by MSSQL and GDBMServer drivers

File:

• gs2-extensions/parallel-building/trunk/src/perllib/basebuildproc.pm (modified) (1 diff)

gs2-extensions/parallel-building/trunk/src/perllib/basebuildproc.pm

@@ -195 +195 @@
 
     $self->{'output_handle'} = $handle;
-    binmode($handle,":utf8");
+    # Sigh - 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. So we need to test the type before setting the binmode
+    # [jmt12]
+    if (ref $handle eq "GLOB")
+    {
+      binmode($handle,":utf8");
+    }
 }