Mercurial > hg > egg-tcls
changeset 653:96a659f66be9
quotedb: Use splitx instead of split.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 17 Feb 2021 11:09:50 +0200 |
parents | aa317575410d |
children | 10ea2c1101b3 |
files | quotedb.tcl |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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]