--- PApp-SQL/SQL.pm 2000/11/26 21:04:22 1.4 +++ PApp-SQL/SQL.pm 2001/01/06 03:04:03 1.5 @@ -75,13 +75,13 @@ $id = "$id\0$dsn\0$user\0$pass"; unless ($dbcache{$id} && $dbcache{$id}->ping) { #warn "connecting to ($dsn|$user|$pass|$flags)\n";#d# - # first, nuke our cache (sooory ;) + # first, nuke our statement cache (sooory ;) cachesize cachesize 0; # then connect anew $dbcache{$id} = eval { DBI->connect($dsn, $user, $pass, $flags) } || eval { DBI->connect($dsn, $user, $pass, $flags) } - || die "$DBI::errstr\n"; + || die "unable to connect to database $dsn: $DBI::errstr\n"; $connect->($dbcache{$id}) if $connect; } $dbcache{$id};