Changeset 16176 for gsdl/trunk/perllib/basebuilder.pm

Timestamp:

2008-06-25T14:13:16+12:00 (16 years ago)

Author:

mdewsnip

Message:

Added a close_infodb_write_handle() functions and initial versions for both GDBM and SQLite, in preparation for speeding up SQLite.

File:

• gsdl/trunk/perllib/basebuilder.pm (modified) (1 diff)

gsdl/trunk/perllib/basebuilder.pm

@@ -402 +402 @@
     &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, "browselist", $browselist_infodb);
 
-    close ($infodb_handle) if !$self->{'debug'};
+    &dbutil::close_infodb_write_handle($self->{'infodbtype'}, $infodb_handle) if !$self->{'debug'};
 
     print STDERR "</Stage>\n" if $self->{'gli'};