more developed version

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index e786edb6f9ec7c598b5af67f3b13d1e2d926f117..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;
@@ -523,7 +523,7 @@ DXDb::load();
 
 # starting local stuff
 dbg("doing local initialisation ...");
-QSL::init(1) or die "Cannot open local QSL database";
+QSL::init(1);
 eval {
        Local::init();
 };