| … | … | ||
|---|---|---|---|
| 408 | 408 | ||
| 409 | sub checked_dbh($) { | 409 | sub checked_dbh($) { |
| 410 | my $dbh = $dbcache{$_[0][0]}; | 410 | my $dbh = $dbcache{$_[0][0]}; |
| 411 | $dbh && $dbh->ping | 411 | $dbh && $dbh->ping |
| 412 | ? $dbh | 412 | ? $dbh |
| 413 | : PApp::SQL::connect_cached((split /\x00/, $_[0][0]), $_[0][1], $_[0][2]); | 413 | : PApp::SQL::connect_cached((split /\x00/, $_[0][0], 4), $_[0][1], $_[0][2]); |
| 414 | } | 414 | } |
| 415 | 415 | ||
| 416 | =item $db->dsn | 416 | =item $db->dsn |
| 417 | 417 | ||
| 418 | Return the DSN (L<DBI>) fo the database object (e.g. for error messages). | 418 | Return the DSN (L<DBI>) fo the database object (e.g. for error messages). |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |