diff options
| author | doy <doy@tozt.net> | 2009-02-07 14:35:28 -0500 |
|---|---|---|
| committer | doy <doy@tozt.net> | 2009-02-07 14:35:28 -0500 |
| commit | 109c0d07d7d2ee792b197dffa8c201ed0d7488d7 (patch) | |
| tree | 14c5a01026c7e1c1d8957072d1b204b7b6f26a4c /t | |
| parent | 109c8c2365f3a377945ca1f04f4b16a0fb82e0fa (diff) | |
| download | graph-implicit-109c0d07d7d2ee792b197dffa8c201ed0d7488d7.tar.gz graph-implicit-109c0d07d7d2ee792b197dffa8c201ed0d7488d7.zip | |
oops, edge calculator should return a list, not an arrayref
Diffstat (limited to 't')
| -rw-r--r-- | t/003-minimum-spanning-tree.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/003-minimum-spanning-tree.t b/t/003-minimum-spanning-tree.t index 8f34cf1..f8192df 100644 --- a/t/003-minimum-spanning-tree.t +++ b/t/003-minimum-spanning-tree.t @@ -62,7 +62,7 @@ my %mst = ( ); my $edge_calculator = sub { my $vertex = shift; - return $graph{$vertex}; + return @{ $graph{$vertex} }; }; my $graph = Graph::Implicit->new($edge_calculator); |