… | … | ||
---|---|---|---|
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 |