X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/blobdiff_plain/0980ee405ad7d6b657529354f1a696116c564a63..b0ef02f8cf6460b1a044723abc44ebc319bcf78c:/asynch.tcl

diff --git a/asynch.tcl b/asynch.tcl
index 406f8d7..a32dda4 100755
--- a/asynch.tcl
+++ b/asynch.tcl
@@ -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]
 }