From: miljenko <miljenko>
Date: Thu, 8 Dec 2005 10:51:10 +0000 (+0000)
Subject: Removed bug in .imunesrc initialization.
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=b322253ea29e79fab68da7f2cb4192e24c4b8de3;p=imunes.git

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 80f19de..7259160 100755
--- 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"
             }
         }
     }
 }
 
-