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