# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1315663345 -10800
# Node ID 31c8c4f50aa6cfcfc38ebac720ee8b1444282ce4
# Parent  cd9fd4ec82a91e6e2228b7603059f231e0483ab4
urllog: Improve urllog_isnumber function.

diff -r cd9fd4ec82a9 -r 31c8c4f50aa6 urllog.tcl
--- a/urllog.tcl	Sat Sep 10 17:00:22 2011 +0300
+++ b/urllog.tcl	Sat Sep 10 17:02:25 2011 +0300
@@ -211,13 +211,12 @@
 
 
 proc urllog_isnumber {uarg} {
-  set ufoo 1
 
   foreach i [split $uarg {}] {
-    if {![string match \[0-9\] $i]} {set ufoo 0}
+    if {![string match \[0-9\] $i]} { return 0 }
   }
 
-  return $ufoo
+  return 1
 }