diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-12-01 03:03:29 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-12-01 03:03:29 +0000 |
| commit | 0d517a8c575774387393513ca196aa27211a0b0b (patch) | |
| tree | 4e81d852771632f21bfe65370d37bd403211d997 /perl/Wallet/Server.pm | |
| parent | 6bd2cd0824130bd25918e2b709d0991003d5d392 (diff) | |
Following the DBI documentation, turn on AutoCommit after RaiseError so
that we have some hope of getting error messages if it fails.
Diffstat (limited to 'perl/Wallet/Server.pm')
| -rw-r--r-- | perl/Wallet/Server.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm index 37a4e0f..e1655ff 100644 --- a/perl/Wallet/Server.pm +++ b/perl/Wallet/Server.pm @@ -61,9 +61,9 @@ sub _open_db { if (not defined $dbh) { die "cannot connect to database: $DBI::errstr\n"; } - $dbh->{AutoCommit} = 0; $dbh->{RaiseError} = 1; $dbh->{PrintError} = 0; + $dbh->{AutoCommit} = 0; return $dbh; } |