From: minima <minima>
Date: Tue, 22 Feb 2005 21:28:03 +0000 (+0000)
Subject: fix missing under test
X-Git-Tag: R_1_52~158
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=5aaaa0212b6bda5def233ffce515d889b8e547e7;p=spider.git

fix missing under test
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4b34975c..612e59b6 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1049,7 +1049,7 @@ sub handle_19
 		my $flags = Route::here($here)|Route::conf($conf);
 
 		# is he under the control of the new protocol?
-		if ($r->np) {
+		if ($r && $r->np) {
 			dbg("PCPROT: $call aranea node, ignored") if isdbg('chanerr');
 			next;
 		}