- Timestamp:
- 2011-09-27T12:46:15+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/basebuildproc.pm
r24626 r24669 195 195 196 196 $self->{'output_handle'} = $handle; 197 binmode($handle,":utf8"); 197 # Sigh - the output handle isn't always an actual handle. In a couple of 198 # the database drivers (MSSQL and GDBMServer) it's actually a reference 199 # to an object. So we need to test the type before setting the binmode 200 # [jmt12] 201 if (ref $handle eq "GLOB") 202 { 203 binmode($handle,":utf8"); 204 } 198 205 } 199 206
Note:
See TracChangeset
for help on using the changeset viewer.