From: minima <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})) {