Fix slicing error. #180

This commit is contained in:
Alessandro Ranellucci 2012-02-19 17:18:50 +01:00
parent 27a6b3a851
commit 23156f0abe

View File

@ -207,6 +207,7 @@ sub make_loops {
my $next_line; my $next_line;
if (defined $line->next_facet_index) { if (defined $line->next_facet_index) {
for (@lines) { for (@lines) {
next if $visited_lines{$_};
if ($_->facet_index == $line->next_facet_index) { if ($_->facet_index == $line->next_facet_index) {
$next_line = $_; $next_line = $_;
last; last;
@ -215,6 +216,7 @@ sub make_loops {
} elsif (defined $line->b_id) { } elsif (defined $line->b_id) {
for (@lines) { for (@lines) {
next if !defined $_->a_id; next if !defined $_->a_id;
next if $visited_lines{$_};
if ($_->a_id == $line->b_id) { if ($_->a_id == $line->b_id) {
$next_line = $_; $next_line = $_;
last; last;