From 70ca4f0fb5ac07f5fdda475c1e737f49499d1d60 Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 7 Feb 2007 17:20:43 +0000 Subject: [PATCH] adding db cleanup at child exit git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6914 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm | 5 +++++ .../src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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; -- 2.11.0