@ISA = qw(Exporter);
@EXPORT = qw(&db_setocean &db_writer &db_connect $dbh
&db_filename &db_doall &db_onconflict
- &dbr_filename &dbr_connect);
+ &dbr_filename &dbr_connect &db_connect_core);
%EXPORT_TAGS = ( );
@EXPORT_OK = qw();
}
sub dbr_connect ($$) {
my ($datadir,$ocean) = @_;
- return connect_core(dbr_filename($datadir,$ocean));
+ return db_connect_core(dbr_filename($datadir,$ocean));
}
-sub connect_core ($) {
+sub db_connect_core ($) {
my ($fn)= @_;
my $h= DBI->connect("dbi:SQLite:$fn",'','',
{ AutoCommit=>0,
}
sub db_connect () {
- $dbh= connect_core($dbfn);
+ $dbh= db_connect_core($dbfn);
}
sub db_doall ($) {