Changeset 28126
- Timestamp:
- 2013-08-26T13:44:06+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/jdbm.pm
r28108 r28126 55 55 if ((defined $opt_append) && ($opt_append eq "append")) { 56 56 $txt2jdb_cmd .= " -append"; 57 print STDERR "Append operation to $infodb_file_path\n"; 58 } 59 else { 60 print STDERR "Create database $infodb_file_path\n"; 57 61 } 58 62 … … 61 65 62 66 $txt2jdb_cmd .= " \"$infodb_file_path\""; 67 68 ## print STDERR "**** txt2jdbm cmd = $txt2jdb_cmd\n\n"; 63 69 64 70 if (!open($infodb_file_handle, "| $txt2jdb_cmd"))
Note:
See TracChangeset
for help on using the changeset viewer.