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
sub disconnect {
my $self = shift;
$self->dbh->disconnect;
undef $self;
my $self = shift;
my $dbh = delete $self->{_dbh};
if ($dbh) {
$dbh->disconnect;
}
}