Removed bug in .imunesrc initialization.

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

diff --git a/filemgmt.tcl b/filemgmt.tcl
index 80f19def4be407a18f3c3b813f81c6d0f8c62359..725916048df9cb57197d0a8d37f21b5b4d894452 100755 (executable)
--- a/filemgmt.tcl
+++ b/filemgmt.tcl
@@ -206,17 +206,17 @@ proc fileSaveAsDialogBox {} {
 #
 proc readConfigFile {} {
     global exec_hosts remote_exec editor_only
+    global env
     if { [file exists ".imunesrc"] } {
         source ".imunesrc"
     } else {
-        if { [catch {$env(HOME)} home] } {
-            # not running on UNIX
+        if { [catch {set myhome $env(HOME)}] } {
+            ;# not running on UNIX
         } else {
-            if { [file exists "$home/.imunesrc"] } {
-               source "$home/.imunesrc"
+            if { [file exists "$myhome/.imunesrc"] } {
+               source "$myhome/.imunesrc"
             }
         }
     }
 }
 
-