Mercurial > hg > egg-tcls
changeset 668:a026f5eb9439
quotedb: Cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 23 Feb 2021 13:04:41 +0200 |
parents | 88d0e2ba73ca |
children | 3f5f9d0745a6 |
files | quotedb.tcl |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/quotedb.tcl Tue Feb 23 13:04:24 2021 +0200 +++ b/quotedb.tcl Tue Feb 23 13:04:41 2021 +0200 @@ -393,10 +393,10 @@ } ### Parse the given command - qdb_log "${unick}/${uhand}/${uchan} searched ${utable}: ${utext}" + qdb_log "${unick}/${uhand}/${uchan} searched ${utable}: '${utext}'" + set fpatlist {} set ftokens [::textutil::split::splitx $utext {\s+}] - set fpatlist {} foreach ftoken $ftokens { set fprefix [string range $ftoken 0 0] set fpattern [string range $ftoken 1 end]