oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prevent closing dbh handles twice.

Browse source
This commit is contained in:
Colin Kuskie 2009-04-10 16:31:54 +00:00
parent 75ad1c14ff
commit 1665af184d
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/SQL.pm
View file

@ -503,9 +503,11 @@ Disconnects from the database. And destroys the object.
=cut =cut
sub disconnect { sub disconnect {
my $self = shift; my $self = shift;
$self->dbh->disconnect; my $dbh = delete $self->{_dbh};
undef $self; if ($dbh) {
$dbh->disconnect;
}
} }