From: minima <minima>
Date: Sat, 12 Mar 2005 11:37:55 +0000 (+0000)
Subject: fix error on anonymous pc17
X-Git-Tag: R_1_52~88
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=3909c2de5f181bb15cad7b225697f87a6df5731a

fix error on anonymous pc17
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index dd532375..8e8dfea7 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -854,7 +854,7 @@ sub handle_17
 	}
 
 	$uref = Route->new($ucall) unless $uref; # throw away
-	$self->route_pc17($origin, $line, $parent, $uref) if (DXChannel::get($parent->call) || $parent->np);
+	$self->route_pc17($origin, $line, $parent, $uref) if (DXChannel::get($parent->call) || ($parent->isa('Route::Node') && $parent->np));
 }
 		
 # link request