From 377d1ce5071669cd2d5797f5604fd5e3034bfc51 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 8 Mar 2005 00:24:15 +0000
Subject: [PATCH] delete successful pings

---
 perl/Thingy/Ping.pm | 1 +
 1 file changed, 1 insertion(+)

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 {
-- 
2.34.1