try again

[spider.git] / perl / Thingy / Ping.pm

diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index ce64181231f146401fae09827efda789ca789c87..f61aafbe996e375845ef24ff6f2d1c22b1b2c2cf 100644 (file)
--- a/perl/Thingy/Ping.pm
+++ b/perl/Thingy/Ping.pm
@@ -98,7 +98,8 @@ sub handle
                } else {
 
                        # it's a reply, look in the ping list for this one
-                       my $ref = $ping{$thing->{id}} || $thing->find;
+                       my $ref = $ping{$thing->{id}} if exists $thing->{id};
+                       $ref ||= $thing->find;
                        if ($ref) {
                                my $t = tv_interval($thing->{t}, [ gettimeofday ]);
                                if (my $dxc = DXChannel::get($thing->{user} || $thing->{origin})) {