From e4bd50f5e68565998888f44bb6c6a45d4087bbf0 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 13 Oct 2009 19:42:14 +0000
Subject: [PATCH] -Fix problem where xfork did not successfully relinquish open
 db handles (with this change, fuser on a sqlite file, for instance, looks
 much more correct)

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4376 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Utils.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 967bce17d..7f2e0164f 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -335,6 +335,7 @@ sub xfork
         #my %drivers = DBI->installed_drivers;
         foreach (values %{$::XCAT_DBHS})
         {    #@{$drh->{ChildHandles}}) {
+            if ($_) { $_->disconnect(); }
             $_->{InactiveDestroy} = 1;
             undef $_;
         }