Fix slicing error. #180
This commit is contained in:
parent
27a6b3a851
commit
23156f0abe
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user