Changeset 18658 for gsdl/trunk/perllib/GDBMUtils.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/GDBMUtils.pm (modified) (1 diff)

gsdl/trunk/perllib/GDBMUtils.pm

@@ -197 +197 @@
     my $collection = shift(@_);
 
-    # Find out the database extension
-    my $ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-
-    # Now return the full filename of the database
-
-    return &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text", $collection.$ext);
+    # Return the full filename of the database
+
+    return &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text", "$collection.gdb");
   }
 # /** getDatabasePath **/