projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix DXChannel::get
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index d8dad2c3280ad54b6716dedf6e57aa968515ba59..2bfd66865c6eac1e2e6808e2bab7e2c423b4ebc0 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-972,6
+972,12
@@
sub handle_19
} else {
next;
}
} else {
next;
}
+ } else {
+ if ($r->version != $ver || $r->flags != $flags) {
+ $r->version($ver);
+ $r->flags($flags);
+ push @rout, $r;
+ }
}
} else {
}
} else {
@@
-1572,13
+1578,13
@@
sub process
# send a ping out on this channel
if ($dxchan->{pingint} && $t >= $dxchan->{pingint} + $dxchan->{lastping}) {
# send a ping out on this channel
if ($dxchan->{pingint} && $t >= $dxchan->{pingint} + $dxchan->{lastping}) {
-
if ($dxchan->{nopings} <= 0) {
-
$dxchan->disconnect;
-
} else {
+
#
if ($dxchan->{nopings} <= 0) {
+
#
$dxchan->disconnect;
+
#
} else {
addping($main::mycall, $dxchan->call);
$dxchan->{nopings} -= 1;
$dxchan->{lastping} = $t;
addping($main::mycall, $dxchan->call);
$dxchan->{nopings} -= 1;
$dxchan->{lastping} = $t;
-
}
+
#
}
}
}
}
}