X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=860c5235176449a59a8842b798785a16d8c47ae4;hb=28f251eee8a08f65460a0f1b1b66cf30f5fc08db;hp=2c53175fc645b13f4e0f6a6310d97cf7e4f3c8af;hpb=460c05b504a1d353011f6e5794e1f66359fcc2b6;p=spider.git

diff --git a/perl/Route.pm b/perl/Route.pm
index 2c53175f..860c5235 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -301,6 +301,7 @@ sub findroutes
 		push @out, $level ? [$level, $dxchan] : $dxchan;
 		return @out;
 	}
+	$seen->{$call}++;
 
 	# deal with more nodes
 	my $nref = Route::get($call);