diff options
-rw-r--r-- | lib/Graph/Implicit.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Graph/Implicit.pm b/lib/Graph/Implicit.pm index b9a3556..9d8c43c 100644 --- a/lib/Graph/Implicit.pm +++ b/lib/Graph/Implicit.pm @@ -15,8 +15,8 @@ Graph::Implicit - graph algorithms for implicitly specified graphs map { [$_, $_->intrinsic_cost] } $tile->grep_adjacent(sub { $_[0]->is_walkable }) }); - my @reachable_vertices = $graph->vertices; - my @reachable_edges = $graph->edges; + my @reachable_vertices = $graph->vertices(current_tile()); + my @reachable_edges = $graph->edges(current_tile()); my ($sssp_predecessors, $dest_vertex) = $graph->dijkstra( current_tile(), sub { is_target($_[0]) ? 'q' : 0 }, |