From b322253ea29e79fab68da7f2cb4192e24c4b8de3 Mon Sep 17 00:00:00 2001
From: miljenko <miljenko>
Date: Thu, 8 Dec 2005 10:51:10 +0000
Subject: [PATCH] Removed bug in .imunesrc initialization.

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 filemgmt.tcl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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"
             }
         }
     }
 }
 
-
-- 
2.39.5