[Netpass-devel] NetPass/lib/NetPass DB.pm,1.43,1.44
Brought to you by:
jeffmurphy
|
From: jeff m. <jef...@us...> - 2005-06-02 19:59:24
|
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"); |