Mercurial > hg > egg-tcls

changeset 65:31c8c4f50aa6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Improve urllog_isnumber function.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 10 Sep 2011 17:02:25 +0300
parents cd9fd4ec82a9
children 140f0492dcd3
files urllog.tcl
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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
 }