more developed version

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 4965a49fd3ebb0c8e8a0b798093a2aec36bcc052..6d4dc90f66b2fc523a8d735069f231642d253341 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -336,7 +336,7 @@ sub process_inqueue
                return unless defined $sort;
        
                # do the really sexy console interface bit! (Who is going to do the TK interface then?)
-               dbg("<- $sort $call $line\n") if $sort ne 'D' && isdbg('chan');
+               dbg("<- $sort $call $line") if $sort ne 'D' && isdbg('chan');
                if ($self->{disconnecting}) {
                        dbg('In disconnection, ignored');
                        next;