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]