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/trunk@12334 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

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);
                                 };
                             }
                         }