db_setocean($md{'ocean'});
my $dbfn= db_filename();
(stat $dbfn) or die "stat database $dbfn failed $!\n";
+ db_writer();
db_connect();
+ db_onconflict(sub { print STDERR "temporary failure: @_\n"; exit 75; });
my ($islandid) = $dbh->selectrow_array(
"SELECT islands.islandid
pipethrough_run_finish($pt, 'gunzip <$deduped_tsv.gz');
- print "\n";
+# print "\n";
$dbh->commit();
# select * from ((buy natural join commods) natural join stalls) natural join islands;