Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18786/lib/NetPass
Modified Files:
DB.pm
Log Message:
switch config
Index: DB.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/DB.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- DB.pm 2 Jun 2005 19:04:54 -0000 1.43
+++ DB.pm 2 Jun 2005 19:59:08 -0000 1.44
@@ -64,6 +64,7 @@
AutoCommit => 1 # commit on execute
}
);
+
return undef if ( !defined($dbh) );
$self->{'dbh'} = $dbh;
@@ -2290,7 +2291,9 @@
$sql .= " WHERE rev = ".$self->dbh->quote($r) if $r;
$sql .= " WHERE rev = (select MAX(rev) FROM config)" if ($r == 0);
- $rv = $self->dbh->selectall_arrayref($sql);
+ $self->reconnect() || return "db failure";
+
+ $rv = $self->{'dbh'}->selectall_arrayref($sql);
return "db failure ".$self->dbh->errstr if (ref($rv) ne "ARRAY");
|
