From 3909c2de5f181bb15cad7b225697f87a6df5731a Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 12 Mar 2005 11:37:55 +0000
Subject: [PATCH] fix error on anonymous pc17

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.34.1