From: Josip Rodin <joy@debian.(none)>
Date: Mon, 5 Oct 2009 13:36:35 +0000 (+0200)
Subject: sintakticka greska za koju Tcl ne javlja warning
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=969de6ef17b5d56ef24409fd637771f7da62dab6;p=imunes.git

sintakticka greska za koju Tcl ne javlja warning
---

diff --git a/linux/appstart.tcl b/linux/appstart.tcl
index 0abb18e..56dd227 100644
--- a/linux/appstart.tcl
+++ b/linux/appstart.tcl
@@ -58,7 +58,7 @@ proc startethereal { node iface } {
     #set interface "$iface@$eid\.$node"
     upvar 0 ::cf::[set ::curcfg]::ngnodemap ngnodemap
     upvar 0 ::cf::[set ::curcfg]::[set node]::node_id node_id
-    set interface ngnodemap($iface@$node_id)
+    set interface $ngnodemap($iface@$node_id)
     
     nexec wireshark -i $interface -f " " &
 }