Mercurial > hg > egg-tcls
changeset 65:31c8c4f50aa6
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 }