From e6c6dd21e7aa32485fe014f218e67ef067741098 Mon Sep 17 00:00:00 2001 From: Josip Rodin Date: Mon, 9 Nov 2009 17:02:38 +0100 Subject: [PATCH] izgleda da je debug rezervirana varijable iz nekog razloga (zaboravljeni dio) --- imunes.tcl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/imunes.tcl b/imunes.tcl index 1399746..ae83376 100755 --- a/imunes.tcl +++ b/imunes.tcl @@ -49,7 +49,7 @@ set execMode interactive set eid_base i[format %04x [pid]] # debug output to shell -set debug false +set imunes_debug false while { [string index [lindex $argv 0] 0] == "-" } { switch -exact -- [lindex $argv 0] { @@ -66,10 +66,10 @@ while { [string index [lindex $argv 0] 0] == "-" } { "-d" - "--debug" { # debug output to shell - set debug "true" + set imunes_debug "true" set argv [lrange $argv 1 end] - if { $debug } { - puts "DEBUG == $debug" + if { $imunes_debug } { + puts "DEBUG == $imunes_debug" } } default { @@ -274,7 +274,7 @@ set exec_sockets_opened false #***** set remote_exec true -if { $debug } { +if { $imunes_debug } { puts "user is $tcl_platform(user)" } if { $gui_unix && $tcl_platform(user) == "root" } { -- 2.39.5