# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1401637616 -10800
# Node ID f8571331003b266c34b5ace0efba32a3fd1b8435
# Parent  7a549487fba351e4c283031cf8078f4922e615c2
urllog: Cleanup.

diff -r 7a549487fba3 -r f8571331003b urllog.tcl
--- 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 "/"]