From 2192a7602dbeb605f4356b51ee0e33c431e9192d Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 24 Apr 2012 19:17:43 +0000
Subject: [PATCH] Have Table.pm properly bail out in the event of a bug

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@12335 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Table.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index b06142092..1c23a54d5 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -204,6 +204,8 @@ sub init_dbworker {
                                 eval { #avoid hang by allowin client to die too
                                     print $currcon "*XCATBUGDETECTED*:$err:*XCATBUGDETECTED*\n";
                                     print $currcon "*XCATBUGDETECTED*76e9b54341\n";
+        			    $clientset->remove($currconn);
+			            close($currcon);
                                 };
                             }
                         }