change node disconnection code to improve node clearouts

[spider.git] / perl / Route.pm

diff --git a/perl/Route.pm b/perl/Route.pm
index 51fceff5928a7b58b8232cb60043b8a904ce2f47..290cd7628f10823e61611398bf48a8b95de9ba2c 100644 (file)
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -305,6 +305,7 @@ sub findroutes
 
        # deal with more nodes
        my $nref = Route::get($call);
+       return () unless $nref;
        foreach my $ncall (@{$nref->{parent}}) {
                unless ($seen->{$ncall}) {
                        dbg("recursing from $call -> $ncall") if isdbg('routec');