The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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;