Changeset 23169
- Timestamp:
- 2010-10-19T14:53:17+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm
r22485 r23169 57 57 return undef; 58 58 } 59 59 binmode($infodb_file_handle,":utf8"); 60 60 return $infodb_file_handle; 61 61 } … … 85 85 my $infodb_map = shift(@_); 86 86 87 my $cmd = "gzip --decompress \"$infodb_file_path\"";87 my $cmd = "gzip --decompress --to-stdout \"$infodb_file_path\""; 88 88 89 89 open (PIPEIN, "$cmd |") 90 90 || die "Error: Couldn't open pipe from gzip: $!\n $cmd\n"; 91 91 92 binmode(PIPEIN,":utf8"); 92 93 my $infodb_line = ""; 93 94 my $infodb_key = ""; … … 120 121 my $infodb_map = shift(@_); 121 122 122 my $cmd = "gzip --decompress \"$infodb_file_path\"";123 my $cmd = "gzip --decompress --to-stdout \"$infodb_file_path\""; 123 124 124 125 open (PIPEIN, "$cmd |") 125 126 || die "Error: Couldn't open pipe from gzip: $!\n $cmd\n"; 126 127 128 binmode(PIPEIN,":utf8"); 127 129 my $infodb_line = ""; 128 130 my $infodb_key = "";
Note:
See TracChangeset
for help on using the changeset viewer.