-Have DB worker release potentially conflicting DB handles on startup

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4375 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

perl-xCAT/xCAT/Table.pm

@@ -122,6 +122,15 @@ sub shut_dbworker {
 }
 sub init_dbworker {
 #create a db worker process
+#First, release all non-db-worker owned db handles (will recreate if we have to)
+    foreach (values %{$::XCAT_DBHS})
+    {    #@{$drh->{ChildHandles}}) {
+        if ($_) { $_->disconnect(); }
+        $_->{InactiveDestroy} = 1;
+        undef $_;
+    }
+
+
     $dbworkerpid = fork;
 
     unless (defined $dbworkerpid) {