From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 7 Feb 2007 17:20:43 +0000 (+0000)
Subject: adding db cleanup at child exit
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=36279062816e1d2a0d4f30492daf20a399836498;p=Evergreen.git

adding db cleanup at child exit


git-svn-id: svn://svn.open-ils.org/ILS/trunk@6914 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm
index 0b3f84cc06..ca53690ee7 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm
@@ -29,6 +29,11 @@
 	my $master_db;
 	my @slave_dbs;
 	my $_db_params;
+
+	sub db_Handles {
+		return ($master_db, @slave_dbs);
+	}
+
 	sub child_init {
 		my $self = shift;
 		$_db_params = shift;
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm
index ada1ce4858..c71867f8b4 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm
@@ -2,11 +2,14 @@
 {
 	package OpenILS::Application::Storage;
 	use OpenSRF::Utils::Logger;
+
 	our $NOPRIMARY = 0;
 	my $log = 'OpenSRF::Utils::Logger';
-
 	my $pg = 'OpenILS::Application::Storage::Driver::Pg';
 
+	sub child_exit {
+		$_->disconnect for $pg->db_Handles;
+	}
 
 	sub current_xact {
 		my $self = shift;