Commit d6dd8938 authored by Mike Hibler's avatar Mike Hibler
Browse files

Add TBDBDisconnect to go with TBDBConnect.

parent e0420109
......@@ -15,7 +15,7 @@ use vars qw(@ISA @EXPORT);
@ISA = "Exporter";
@EXPORT =
qw ( DBQuery DBQueryFatal DBQueryWarn DBWarn DBFatal
DBQuoteSpecial TBDBConnect
DBQuoteSpecial TBDBConnect TBDBDisconnect
);
# Must come after package declaration!
......@@ -96,6 +96,11 @@ sub TBDBConnect($;$$$)
return 0;
}
sub TBDBDisconnect()
{
undef($DB);
}
sub TBdbfork()
{
select(undef, undef, undef, 0.3);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment