Artifact
ecb29127eb33d64a0a0c427c9e6e394894daf5b7:
Attachment "http.tcl.diff" to
ticket [1353850fff]
added by
matt-newman
2005-11-11 18:16:54.
Index: library/http/http.tcl
===================================================================
RCS file: /cvs/kit/tcl/library/http/http.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -b -w -r1.1 -r1.2
--- library/http/http.tcl 2005/08/22 19:13:34 1.1
+++ library/http/http.tcl 2005/10/14 21:27:26 1.2
@@ -300,7 +300,7 @@
# Recognize user:pass@host URLs also, although we do not do anything
# with that info yet.
- set exp {^(([^:]*)://)?([^@]+@)?([^/:]+)(:([0-9]+))?(/.*)?$}
+ set exp {^(([^:]*)://)?([^@:/]+@)?([^/:]+)(:([0-9]+))?(/.*)?$}
if {![regexp -nocase $exp $url x prefix proto user host y port srvurl]} {
unset $token
return -code error "Unsupported URL: $url"
