projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
changes
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index fb48c1e005b64b133f35169371347945b4361c26..06dab32b2456a291d0b558e0b8006ec08c043704 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-102,7
+102,7
@@
sub error_handler
{
my $dxchan = shift;
$dxchan->{conn}->set_error(undef) if exists $dxchan->{conn};
{
my $dxchan = shift;
$dxchan->{conn}->set_error(undef) if exists $dxchan->{conn};
- $dxchan->disconnect;
+ $dxchan->disconnect
(1)
;
}
# handle incoming messages
}
# handle incoming messages
@@
-421,7
+421,7
@@
dbg('err', "orft we jolly well go ...");
for (;;) {
# $DB::trace = 1;
for (;;) {
# $DB::trace = 1;
- Msg->event_loop(
25, 0.001
);
+ Msg->event_loop(
10, 0.010
);
my $timenow = time;
process_inqueue(); # read in lines from the input queue and despatch them
# $DB::trace = 0;
my $timenow = time;
process_inqueue(); # read in lines from the input queue and despatch them
# $DB::trace = 0;