From: minima Date: Mon, 7 Mar 2005 23:34:01 +0000 (+0000) Subject: fix non-existant id on pc prot pings X-Git-Tag: R_1_52~118 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4932835e5f1bdcfc118f93697b8a685ba2c0c083;p=spider.git fix non-existant id on pc prot pings --- 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})) {