use strict;
$^W = 1;
use DBI;
use vars qw! $dbh !;
# load the config values
use DBIx::FullTextSearch::TestConfig;
$dbh = DBI->connect(@DBIx::FullTextSearch::TestConfig::Config{ qw! dsn user password !},
{ 'PrintError' => 0, 'RaiseError' => 1 });
if (not defined $dbh) {
print "1..0\n";
exit;
}
$dbh->{'PrintError'} = 1;
END {
if (defined $dbh) {
$dbh->disconnect;
}
}
1;