Changeset 153
- Timestamp:
- 02/09/09 18:23:34 (10 months ago)
- Files:
-
- 1 modified
-
branches/use-existing-dbh/t/lib/db-common.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/use-existing-dbh/t/lib/db-common.pl
r149 r153 57 57 for (@$dbs) { 58 58 my $dsn = dsn_for($_); 59 my $dbh = DBI->connect( $dsn, "root", "" ) or die $DBI::errstr; 59 my $dbh = DBI->connect( $dsn, "root", "", { 60 RaiseError => 1, 61 PrintError => 0, 62 AutoCommit => 1, 63 } ) or die $DBI::errstr; 60 64 my $driver = Data::ObjectDriver::Driver::DBI->new( dbh => $dbh); 61 65 push @tmp, { driver => $driver, prefix => $pfx };
