delete successful pings

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