fix typo

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index c9395e3e4d5dd0471f17e71dcc978fdeda482f92..b8824cf4d43923290e35ac16f1e58c189bae5790 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -384,7 +384,7 @@ sub send_later
                for (@lines) {
                        $conn->send_later("$sort$call|$_");
                        # debug log it, but not if it is a log message
-                       dbg("-> $sort $call $_") if $sort ne 'L' isdbg('chan');
+                       dbg("-> $sort $call $_") if $sort ne 'L' && isdbg('chan');
                }
        }
        $self->{t} = time;