Changeset 23166 for main/trunk/greenstone2/perllib/dbutil/jdbm.pm
- Timestamp:
- 2010-10-19T12:05:12+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/jdbm.pm
r22076 r23166 68 68 return undef; 69 69 } 70 70 71 binmode($infodb_file_handle,":utf8"); 71 72 return $infodb_file_handle; 72 73 } … … 106 107 107 108 open (PIPEIN, "$jdb2txt_cmd \"$infodb_file_path\" |") || die "couldn't open pipe from db2txt \$infodb_file_path\"\n"; 109 binmode(PIPEIN,":utf8"); 108 110 my $infodb_line = ""; 109 111 my $infodb_key = ""; … … 143 145 144 146 open (PIPEIN, "$jdbkeys_cmd \"$infodb_file_path\" |") || die "couldn't open pipe from jdbmkeys \$infodb_file_path\"\n"; 147 binmode(PIPEIN,":utf8"); 145 148 my $infodb_line = ""; 146 149 my $infodb_key = "";
Note:
See TracChangeset
for help on using the changeset viewer.