Do not debug if debug off

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