fix error on anonymous pc17

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index dd53237554b9617ee310b0769af0c755cedf8edb..8e8dfea73c49b817d56328031cbbdfbc5938efa7 100644 (file)
--- 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