Changeset 350

Timestamp:

04/07/07 23:36:57 (3 years ago)

Author:

garth

Message:

Patch from sekimura to re-connect to the DB if the connection goes stale.

Files:

• trunk/lib/Data/ObjectDriver/Driver/DBI.pm (modified) (1 diff)

trunk/lib/Data/ObjectDriver/Driver/DBI.pm

@@ -67 +67 @@
     my $driver = shift;
     my $db = shift || 'main';
+    $driver->dbh(undef) if $driver->dbh and !$driver->dbh->ping;
     my $dbh = $driver->dbh;
     unless ($dbh) {