Changeset 18658 for gsdl/trunk/perllib/inexport.pm
- Timestamp:
- 2009-03-11T13:13:31+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/inexport.pm
r18554 r18658 181 181 my ($archive_info,$deleted_files_ref,$archivedir,$verbosity,$mode_text) = @_; 182 182 183 my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb"; 184 my $doc_db = "archiveinf-doc$db_ext"; 185 my $src_db = "archiveinf-src$db_ext"; 183 my $doc_db = "archiveinf-doc.gdb"; 184 my $src_db = "archiveinf-src.gdb"; 186 185 my $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db); 187 186 my $arcinfo_src_filename = &util::filename_cat ($archivedir, $src_db); … … 263 262 # deals with it appropriately. 264 263 265 my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb"; 266 my $doc_db = "archiveinf-doc$db_ext"; 264 my $doc_db = "archiveinf-doc.gdb"; 267 265 my $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db); 268 266 … … 296 294 297 295 298 299 296 1;
Note:
See TracChangeset
for help on using the changeset viewer.