Changeset 18658 for gsdl/trunk/perllib/inexport.pm

Timestamp:

2009-03-11T13:13:31+13:00 (15 years ago)

Author:

kjdon

Message:

we now use .gdb as gdbm db file extension instead of ldb/bdb

File:

• gsdl/trunk/perllib/inexport.pm (modified) (3 diffs)

gsdl/trunk/perllib/inexport.pm

@@ -181 +181 @@
     my ($archive_info,$deleted_files_ref,$archivedir,$verbosity,$mode_text) = @_;
 
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-    my $doc_db = "archiveinf-doc$db_ext";
-    my $src_db = "archiveinf-src$db_ext";
+    my $doc_db = "archiveinf-doc.gdb";
+    my $src_db = "archiveinf-src.gdb";
     my $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db);
     my $arcinfo_src_filename = &util::filename_cat ($archivedir, $src_db);
@@ -263 +262 @@
     # deals with it appropriately.
 
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-    my $doc_db = "archiveinf-doc$db_ext";
+    my $doc_db = "archiveinf-doc.gdb";
     my $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db);
 
@@ -296 +294 @@
 
 
-
 1;