projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add a modicum of security to the remote key get
[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?)
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;
if ($self->{disconnecting}) {
dbg('In disconnection, ignored');
next;
@@
-523,7
+523,7
@@
DXDb::load();
# starting local stuff
dbg("doing local initialisation ...");
# starting local stuff
dbg("doing local initialisation ...");
-QSL::init(1)
or die "Cannot open local QSL database"
;
+QSL::init(1);
eval {
Local::init();
};
eval {
Local::init();
};