From 24dcea7c74c4937b6e9bd9b03365541aa65a34d7 Mon Sep 17 00:00:00 2001 From: doy Date: Sun, 14 Dec 2008 03:08:37 -0500 Subject: syntax error --- lib/Graph/Implicit.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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}) { -- cgit v1.2.3-54-g00ecf