Fix typo causing regression in island ordering. #1211

This commit is contained in:
Alessandro Ranellucci 2013-06-03 21:27:09 +02:00
parent c95245f143
commit 09b81ad027

View File

@ -247,7 +247,7 @@ sub make_perimeters {
)};
my @loops = ();
foreach my $polynode (@$polynodes) {
foreach my $polynode (@nodes) {
push @loops, $traverse->($polynode->{children}, $depth+1, $is_contour);
my $role = EXTR_ROLE_PERIMETER;