From 377d1ce5071669cd2d5797f5604fd5e3034bfc51 Mon Sep 17 00:00:00 2001 From: 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.43.0