Incomplete work for porting simplify() to XS

This commit is contained in:
Alessandro Ranellucci 2013-11-21 20:25:24 +01:00
parent 7475762a27
commit 518798beb3
24 changed files with 121 additions and 41 deletions

View file

@ -38,7 +38,7 @@ sub BUILD {
my $crossing_edges = $self->_crossing_edges;
# simplify islands
@{$self->islands} = map $_->simplify($self->_inner_margin), @{$self->islands};
$_->simplify($self->_inner_margin) for @{$self->islands};
# process individual islands
for my $i (0 .. $#{$self->islands}) {