Subject: | find_a_cycle and has_cycle are broken |
my $v1 = \1;
my $v2 = \2;
my $graph = Graph->new( directed => 1, refvertexed => 1, edges => [[$v1,
$v2], [$v2, $v1]] );
$graph->has_cycle; # returns 0
$graph->find_a_cycle; # returns (\2, "SCALAR(0x4278940)")