From: minima <minima>
Date: Tue, 8 Mar 2005 00:24:15 +0000 (+0000)
Subject: delete successful pings
X-Git-Tag: R_1_52~114
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=377d1ce5071669cd2d5797f5604fd5e3034bfc51;p=spider.git

delete successful pings
---

diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index 30359a42..7f1d7224 100644
--- a/perl/Thingy/Ping.pm
+++ b/perl/Thingy/Ping.pm
@@ -131,6 +131,7 @@ sub handle
 						}
 					}
 				}
+				delete $ping{$ref->{id}};
 			}
 		}
 	} else {