X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ec395d207b174459118d637179ed402cd8c481a8;hb=809ac2e606559d68ff6e0580c0681fc71c6bc4b9;hp=2bfd66865c6eac1e2e6808e2bab7e2c423b4ebc0;hpb=a55714f18999ec1ac500dfcbf7f3f12cc4a96f99;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 2bfd6686..ec395d20 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1578,13 +1578,13 @@ sub process
 		
 		# 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;
-#			}
+			}
 		}
 	}