diff options
Diffstat (limited to 'lib/Graph/Implicit.pm')
-rw-r--r-- | lib/Graph/Implicit.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Graph/Implicit.pm b/lib/Graph/Implicit.pm index 585dd6f..26f4f5c 100644 --- a/lib/Graph/Implicit.pm +++ b/lib/Graph/Implicit.pm @@ -56,8 +56,7 @@ sub kruskal { sub dijkstra { my $self = shift; - my $from = shift; - my $scorer = shift; + my ($from, $scorer) = @_; my $pq = Heap::Simple->new(elements => "Any"); my %neighbors; |