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 94ebf47cef7392a19d5d07ef229a945cb4f55585..75de035c371135a12148d7ed66624eb279869596 100644 (file)
--- 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 }