diff options
author | doy <doy@tozt.net> | 2008-12-15 02:32:18 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-15 02:32:18 -0500 |
commit | 8253f8332095128d312759cdf13398dbfa1aadc8 (patch) | |
tree | d075c684fc3ed5a619911dd070641bf6554fba66 | |
parent | 707e5e5729aee59fc2899024b8a4d0023aaa9f57 (diff) | |
download | graph-implicit-8253f8332095128d312759cdf13398dbfa1aadc8.tar.gz graph-implicit-8253f8332095128d312759cdf13398dbfa1aadc8.zip |
oops, need to add the edge here, not the vertex
-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 9c07d73..28605bd 100644 --- a/lib/Graph/Implicit.pm +++ b/lib/Graph/Implicit.pm @@ -82,7 +82,7 @@ sub _traversal { $code->($pred, $vertex); $pred{$vertex} = $pred if defined wantarray; $marked{$vertex} = 1; - $insert->(\@bag, $_) for $self->neighbors($vertex); + $insert->(\@bag, [$vertex, $_]) for $self->neighbors($vertex); } } return \%pred; |