topicedit: add a timeout; better error handling

[ircbot.git] / asynch.tcl

diff --git a/asynch.tcl b/asynch.tcl
index 36b755f5f6ddf5faf00d2fac53c0f5edc573f46d..ef62d227b96095a9ea2d298a456acf77b678fa51 100755 (executable)
--- a/asynch.tcl
+++ b/asynch.tcl
@@ -1,4 +1,4 @@
-#!/usr/bin/tclsh8.2
+#!/usr/bin/tclsh8.5
 
 # This [sub]program is Copyright (C) 1997-1999 Ian Jackson
 #
@@ -47,10 +47,10 @@ proc morecmd {} {
     }
 }
 
-if {[llength $argv] && "[lindex $argv 0]" == "-d"} {
+if {[llength $argv] && ![string compare [lindex $argv 0] "-d"]} {
     set tcl_traceExec 1
     set argv [lreplace $argv 0 0]
-} elseif {[llength $argv] && "[lindex $argv 0]" == "-dd"} {
+} elseif {[llength $argv] && ![string compare [lindex $argv 0] "-dd"]} {
     set tcl_traceExec 2
     set argv [lreplace $argv 0 0]
 }