prevent self pinging

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b4ff5f655f4701be2edcb151be015d5233b6c6cb..486cfa95f6226f65422be3e09736c150bb7434ea 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -718,7 +718,7 @@ sub normal
                                                                if ($tochan) {
                                                                        $tochan->nopings(3); # pump up the timer
                                                                        push @{$tochan->pingtime}, $t;
-                                                                       shift @{$tochan->pingtime} if @{$tochan->pingtime} > 10;
+                                                                       shift @{$tochan->pingtime} if @{$tochan->pingtime} > 6;
                                                                        my $st;
                                                                        for (@{$tochan->pingtime}) {
                                                                                $st += $_;