Mercurial > hg > egg-tcls
diff quotedb.tcl @ 653:96a659f66be9
quotedb: Use splitx instead of split.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 17 Feb 2021 11:09:50 +0200 |
parents | 0f206ab6a0e4 |
children | 88d0e2ba73ca |
line wrap: on
line diff
--- a/quotedb.tcl Wed Feb 17 11:05:20 2021 +0200 +++ b/quotedb.tcl Wed Feb 17 11:09:50 2021 +0200 @@ -395,7 +395,7 @@ ### Parse the given command qdb_log "${unick}/${uhand}/${uchan} searched ${utable}: ${utext}" - set ftokens [split $utext " "] + set ftokens [::textutil::split::splitx $utext {\s+}] set fpatlist {} foreach ftoken $ftokens { set fprefix [string range $ftoken 0 0]