diff options
author | doy <doy@tozt.net> | 2008-12-14 03:08:37 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-14 03:08:37 -0500 |
commit | 24dcea7c74c4937b6e9bd9b03365541aa65a34d7 (patch) | |
tree | aa13564ff2adbaa13c4af60b6e6a7344039106ed | |
parent | 46b67e7b8d4ce9efbb69965f9bb5c9fc681f5448 (diff) | |
download | graph-implicit-24dcea7c74c4937b6e9bd9b03365541aa65a34d7.tar.gz graph-implicit-24dcea7c74c4937b6e9bd9b03365541aa65a34d7.zip |
syntax error
-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 5f6d535..2fc12ab 100644 --- a/lib/Graph/Implicit.pm +++ b/lib/Graph/Implicit.pm @@ -41,7 +41,7 @@ sub dijkstra { } $neighbors{$vertex} = [$self->($vertex)] unless exists $neighbors{$vertex}; - for my $neighbor (@{ $neighbors{$vertex} })) { + for my $neighbor (@{ $neighbors{$vertex} }) { my ($vert_n, $weight_n) = @{ $neighbor }; my $dist = $cost + $weight_n; if (!defined $dist{$vert_n} || $dist < $dist{$vert_n}) { |