Use the default system Tcl.

[ircbot] / asynch.tcl

diff --git a/asynch.tcl b/asynch.tcl
index 406f8d7368db8d8e53f18dc0fe74c48f72815fd3..61c61b364cc9f57981cb94d032233c2b6b7b3af3 100755 (executable)
--- a/asynch.tcl
+++ b/asynch.tcl
@@ -1,4 +1,4 @@
-#!/usr/bin/tclsh8.2
+#!/usr/bin/tclsh
 
 # This [sub]program is Copyright (C) 1997-1999 Ian Jackson
 #
@@ -16,7 +16,7 @@
 # along with this program; if not, write to the Free Software Foundation,
 # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 #
-# $Id: asynch.tcl,v 1.1 2000-08-14 21:09:51 ijackson Exp $
+# $Id: asynch.tcl,v 1.2 2002-03-27 15:14:51 ijackson Exp $
  
 proc asynch_startcmd {} {
     global asynch_sofar
@@ -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]
 }