Mercurial > hg > egg-tcls
changeset 155:f8571331003b
urllog: Cleanup.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sun, 01 Jun 2014 18:46:56 +0300 |
| parents | 7a549487fba3 |
| children | a1f4c163e48c |
| files | urllog.tcl |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Sun Jun 01 18:46:33 2014 +0300 +++ b/urllog.tcl Sun Jun 01 18:46:56 2014 +0300 @@ -415,8 +415,7 @@ ### Get URL protocol component set u_proto "" - if {[regexp "(\[a-z\]+)://" $urlStr u_match u_proto]} { - } + regexp "(\[a-z\]+)://" $urlStr u_match u_proto] ### Check the PORT (if the ":" is there) set u_record [split $urlStr "/"]