From: miljenko <miljenko>
Date: Tue, 20 Dec 2005 16:16:58 +0000 (+0000)
Subject: Remote execution - improved error handling
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=df0e8252fc27ac576d4eb937df9def70aeaca9c0;p=imunes.git

Remote execution - improved error handling

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---

diff --git a/editor.tcl b/editor.tcl
index 11281d2..47e6a4b 100755
--- a/editor.tcl
+++ b/editor.tcl
@@ -2263,6 +2263,7 @@ proc configRemoteHostsApply { wi } {
     global exec_hosts
     global active_host
     global remote_exec editor_only
+    global exec_sock monitor_sock exec_sockets_opened
 
     set n [llength $exec_hosts]
     set exec_hosts []
@@ -2279,6 +2280,10 @@ proc configRemoteHostsApply { wi } {
         set editor_only true
 	.menubar.experiment entryconfigure "Execute" -state disabled
     }
+    catch { close exec_sock } message
+    catch { close monitor_sock } message
+    catch { unset exec_sock monitor_sock } message
+    set exec_sockets_opened false
     destroy $wi
 }