diff options
author | doy <doy@tozt.net> | 2008-12-14 18:08:11 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-14 18:08:11 -0500 |
commit | 49f82b159caf0a420180dd7338adba75cd0b3b29 (patch) | |
tree | ce0317a20848210b65342020246a8779657f6b44 /lib/Graph/Implicit.pm | |
parent | 4da95a651d8d2bf4682ef992f990ec6205122409 (diff) | |
download | graph-implicit-49f82b159caf0a420180dd7338adba75cd0b3b29.tar.gz graph-implicit-49f82b159caf0a420180dd7338adba75cd0b3b29.zip |
we no longer store the path in the heap for dijkstra/astar
Diffstat (limited to 'lib/Graph/Implicit.pm')
-rw-r--r-- | lib/Graph/Implicit.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Graph/Implicit.pm b/lib/Graph/Implicit.pm index 78537f0..49dde40 100644 --- a/lib/Graph/Implicit.pm +++ b/lib/Graph/Implicit.pm @@ -103,7 +103,7 @@ sub astar { $pq->key_insert(0, $from); while ($pq->count) { my $cost = $pq->top_key; - my ($vertex, $path) = @{ $pq->extract_top }; + my $vertex = $pq->extract_top; if ($scorer) { my $score = $scorer->($vertex); return (\%pred, $vertex) if $score eq 'q'; |