[920] in BarnOwl Developers
[D-O-H] r907 - in branches/barnowl_sqlite/owl: . perl/lib/BarnOwl/MessageList
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:11:08 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
To: dirty-owl-hackers@MIT.EDU
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Thu, 24 Jan 2008 20:46:06 -0500 (EST)
Author: nelhage
Date: 2008-01-24 20:46:06 -0500 (Thu, 24 Jan 2008)
New Revision: 907
Modified:
branches/barnowl_sqlite/owl/perl/lib/BarnOwl/MessageList/SQL.pm
branches/barnowl_sqlite/owl/perlwrap.pm
Log:
Actually close the database on quit
Modified: branches/barnowl_sqlite/owl/perl/lib/BarnOwl/MessageList/SQL.pm
===================================================================
--- branches/barnowl_sqlite/owl/perl/lib/BarnOwl/MessageList/SQL.pm 2008-01-25 01:37:36 UTC (rev 906)
+++ branches/barnowl_sqlite/owl/perl/lib/BarnOwl/MessageList/SQL.pm 2008-01-25 01:46:06 UTC (rev 907)
@@ -212,5 +212,10 @@
$self->deleted({});
}
+sub close {
+ my $self = shift;
+ $self->db->disconnect;
+}
+
1;
Modified: branches/barnowl_sqlite/owl/perlwrap.pm
===================================================================
--- branches/barnowl_sqlite/owl/perlwrap.pm 2008-01-25 01:37:36 UTC (rev 906)
+++ branches/barnowl_sqlite/owl/perlwrap.pm 2008-01-25 01:46:06 UTC (rev 907)
@@ -363,6 +363,10 @@
}
}
+sub close {
+
+}
+
#####################################################################
#####################################################################
@@ -848,6 +852,7 @@
$shutdown->run;
BarnOwl::shutdown() if *BarnOwl::shutdown{CODE};
+ BarnOwl::message_list()->close;
}
sub _receive_msg {
