From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 23 Jun 2007 22:50:10 +0000 (+0100)
Subject: try to stop Route::findroutes recursing too much
X-Git-Tag: 1.55~141
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=a2b44b1c0d70fb3439bef2456a7f950d87e65a0a

try to stop Route::findroutes recursing too much
---

diff --git a/perl/Route.pm b/perl/Route.pm
index d4fb95d4..2c53175f 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -305,9 +305,11 @@ sub findroutes
 	# deal with more nodes
 	my $nref = Route::get($call);
 	foreach my $ncall (@{$nref->{parent}}) {
-		dbg("recursing from $call -> $ncall") if isdbg('routec');
-		my @rout = findroutes($ncall, $level+1, $seen);
-		push @out, @rout;
+		unless ($seen->{$ncall}) {
+			dbg("recursing from $call -> $ncall") if isdbg('routec');
+			my @rout = findroutes($ncall, $level+1, $seen);
+			push @out, @rout;
+		}
 	}
 
 	return $level == 0 ? map {$_->[1]} sort {$a->[0] <=> $b->[0]} @out : @out;
diff --git a/perl/Version.pm b/perl/Version.pm
index a4aaf1cb..b0305ac9 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '73';
+$build = '74';
 
 1;