summaryrefslogtreecommitdiff
path: root/chat/tkicb/patches/patch-ab
blob: 3f7893ab55c8477ac3cde82dc3a78509ef8611ee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
$NetBSD: patch-ab,v 1.1.1.1 2000/12/15 00:36:36 wiz Exp $
--- tcl/tabhist.tcl.orig	Thu Aug 31 12:12:32 2000
+++ tcl/tabhist.tcl	Thu Aug 31 12:13:10 2000
@@ -72,7 +72,7 @@
     regsub -all . $searchNick {\\&} matchStr
 
     foreach nick $TabHist_list {
-	if {[regexp -nocase "^$matchStr$" $nick]} {
+	if {[string compare -nocase  $matchStr $nick]} {
 	    DEBUG:Output tabhist 6 "TabHist:Search: returning $index"
 	    return $index
 	}