diff options
-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 03b9ebb..50f7207 100644 --- a/lib/Graph/Implicit.pm +++ b/lib/Graph/Implicit.pm @@ -58,7 +58,7 @@ sub _traversal { my ($pred, $vertex) = @{ $remove->(\@bag) }; if (not exists $marked{$vertex}) { $code->($pred, $vertex); - $pred{$vertex} = $pred; + $pred{$vertex} = $pred if defined wantarray; $marked{$vertex} = 1; $insert->(\@bag, $_) for $self->neighbors($vertex); } |