small change to LogDbg

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 29840c410e4c788359f97cbe26780dce0ce0519d..89efeb4b6aba41598f6090fb50b99f05524f0c92 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -297,7 +297,7 @@ sub normal
                                        my @bad;
                                        if (@bad = BadWords::check($l)) {
                                                $self->badcount(($self->badcount||0) + @bad);
-                                               Log('DXCommand', "$self->{call} swore: $l");
+                                               LogDbg('DXCommand', "$self->{call} swore: $l with words:" . join(',', @bad) . ")");
                                        } else {
                                                for (@{$self->{talklist}}) {
                                                        $self->send_talks($_, $l);