From 4932835e5f1bdcfc118f93697b8a685ba2c0c083 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 7 Mar 2005 23:34:01 +0000 Subject: [PATCH] fix non-existant id on pc prot pings --- perl/Thingy/Ping.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm index ce641812..14c4ea6a 100644 --- 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 $thing->{id} + $ref ||= $thing->find; if ($ref) { my $t = tv_interval($thing->{t}, [ gettimeofday ]); if (my $dxc = DXChannel::get($thing->{user} || $thing->{origin})) { -- 2.43.0