projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. I believe I have fixed all the login/logout 'broken pipe' errors
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index aa44006786c5d382925d10e45cb324f0ca162766..5d6248efa296ab372364f9ddb684e3de8c3c2149 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-106,6
+106,11
@@
sub rec
if (!defined $msg || (defined $err && $err)) {
if ($dxchan) {
if (!defined $msg || (defined $err && $err)) {
if ($dxchan) {
+ if (defined $err) {
+ $conn->disconnect;
+ undef $conn;
+ $dxchan->conn(undef);
+ }
$dxchan->disconnect;
} elsif ($conn) {
$conn->disconnect;
$dxchan->disconnect;
} elsif ($conn) {
$conn->disconnect;
@@
-375,6
+380,11
@@
dbg('err', "orft we jolly well go ...");
#open(DB::OUT, "|tee /tmp/aa");
#open(DB::OUT, "|tee /tmp/aa");
+$SIG{PIPE} = sub {
+ #$DB::single = 1;
+ dbg('err', "Broken PIPE signal received");
+};
+
for (;;) {
my $timenow;
# $DB::trace = 1;
for (;;) {
my $timenow;
# $DB::trace = 1;