From: Josip Rodin Date: Mon, 9 Nov 2009 16:02:38 +0000 (+0100) Subject: izgleda da je debug rezervirana varijable iz nekog razloga (zaboravljeni dio) X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=e6c6dd21e7aa32485fe014f218e67ef067741098;p=imunes.git izgleda da je debug rezervirana varijable iz nekog razloga (zaboravljeni dio) --- 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" } {