| … | |
… | |
| 79 | cachesize cachesize 0; |
79 | cachesize cachesize 0; |
| 80 | # then connect anew |
80 | # then connect anew |
| 81 | $dbcache{$id} = |
81 | $dbcache{$id} = |
| 82 | eval { DBI->connect($dsn, $user, $pass, $flags) } |
82 | eval { DBI->connect($dsn, $user, $pass, $flags) } |
| 83 | || eval { DBI->connect($dsn, $user, $pass, $flags) } |
83 | || eval { DBI->connect($dsn, $user, $pass, $flags) } |
| 84 | || die $DBI::errstr; |
84 | || die "$DBI::errstr\n"; |
| 85 | $connect->($dbcache{$id}) if $connect; |
85 | $connect->($dbcache{$id}) if $connect; |
| 86 | } |
86 | } |
| 87 | $dbcache{$id}; |
87 | $dbcache{$id}; |
| 88 | } |
88 | } |
| 89 | |
89 | |
