From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sun, 29 Nov 2009 11:33:39 +0000 (+0000)
Subject: Changed use of lsearch maintain Tcl 8.4 compatibility.
X-Git-Tag: v2.6~5
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=0d1350b7e421e8e3512e01249fcfca625a4beff2;p=sockspy

Changed use of lsearch maintain Tcl 8.4 compatibility.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---

diff --git a/bin/sockspy.tcl b/bin/sockspy.tcl
index 94ebf47..75de035 100644
--- a/bin/sockspy.tcl
+++ b/bin/sockspy.tcl
@@ -648,7 +648,7 @@ proc ProxyConnect {fromSock data} {
 
     set state(uri) $uri				;# For debugging
     array set URI [::uri::split $uri]
-    if {[lsearch -nocase {http https} $URI(scheme)] == -1} {
+    if {[lsearch {http https} [string tolower $URI(scheme)]] == -1} {
         return -code error "cannot proxy the '$URI(scheme)' protocol"
     }
     if {$URI(port) == ""} { set URI(port) 80 }