projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
90b87fd
)
fixed Route::findroutes
author
Dirk Koopman
<djk@tobit.co.uk>
Sat, 23 Jun 2007 21:42:09 +0000
(22:42 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Sat, 23 Jun 2007 21:42:09 +0000
(22:42 +0100)
perl/Route.pm
patch
|
blob
|
history
perl/Version.pm
patch
|
blob
|
history
diff --git
a/perl/Route.pm
b/perl/Route.pm
index 1106892a167c8641147ac76fa02d9118a13057eb..d4fb95d4205eae5143959c9c6efd130b0da1eb43 100644
(file)
--- a/
perl/Route.pm
+++ b/
perl/Route.pm
@@
-298,15
+298,15
@@
sub findroutes
return () if $seen->{$call};
if (my $dxchan = DXChannel::get($call)) {
$seen->{$call}++;
return () if $seen->{$call};
if (my $dxchan = DXChannel::get($call)) {
$seen->{$call}++;
- push @out,
[$level, $dxchan]
;
+ push @out,
$level ? [$level, $dxchan] : $dxchan
;
return @out;
}
# deal with more nodes
return @out;
}
# deal with more nodes
- my $nref = Route::
Node::
get($call);
- foreach my $ncall (@{$nref->{
nodes
}}) {
+ my $nref = Route::get($call);
+ foreach my $ncall (@{$nref->{
parent
}}) {
dbg("recursing from $call -> $ncall") if isdbg('routec');
dbg("recursing from $call -> $ncall") if isdbg('routec');
- my @rout = findroute($ncall, $level+1, $seen);
+ my @rout = findroute
s
($ncall, $level+1, $seen);
push @out, @rout;
}
push @out, @rout;
}
diff --git
a/perl/Version.pm
b/perl/Version.pm
index af05086e56cabfbabb96e25ad7229fc533d20c09..8816fa97cb375e59bd9b9dfc3fe99886ffa22b94 100644
(file)
--- a/
perl/Version.pm
+++ b/
perl/Version.pm
@@
-11,6
+11,6
@@
use vars qw($version $subversion $build);
$version = '1.54';
$subversion = '0';
$version = '1.54';
$subversion = '0';
-$build = '7
0
';
+$build = '7
1
';
1;
1;