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 554ba4ee7ae0d82f5ef9c1a18dc1a7846c976f0e..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