Do not debug if debug off

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 250f600..27e08cc 100644 (file)
--- a/ledmodule.tcl
+++ b/ledmodule.tcl
@@ -80,7 +80,7 @@ proc ldebug {facil m} {
     #    d$deviceset
     #    c$lchan
     #    {}             for system stuff
-    if {![llength debugusers]} return
+    if {![llength $debugusers]} return
     if {[regexp {[md]([^:]+)\:} $facil dummy username] &&
         [lsearch -exact $debugusers $username]==-1} return