From 0d1350b7e421e8e3512e01249fcfca625a4beff2 Mon Sep 17 00:00:00 2001
From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sun, 29 Nov 2009 11:33:39 +0000
Subject: [PATCH] Changed use of lsearch maintain Tcl 8.4 compatibility.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---
 bin/sockspy.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 }
-- 
2.23.0