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 0b3f84c..ca53690 100644 (file)
--- 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 ada1ce4..c71867f 100644 (file)
--- 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;