Skip to content
Commits on Source (2)
......@@ -471,7 +471,6 @@ sub get_station {
while ( @queue and $iter_depth < 12 ) {
my $station = shift(@queue);
push( @seen, $station );
$iter_depth++;
my ( $raw, $err )
......@@ -555,7 +554,7 @@ sub get_station {
for my $ref (@refs) {
if ( none { $_ == $ref } @seen and none { $_ == $ref } @queue )
{
push( @queue, @refs );
push( @queue, $ref );
}
}
$opt{root} = 0;
......