Use dclone() in Polyline and ExPolygon too

This commit is contained in:
Alessandro Ranellucci 2013-07-05 14:46:32 +02:00
parent 8061cc6e30
commit 72f77a3420
2 changed files with 4 additions and 4 deletions

View file

@ -9,6 +9,7 @@ use List::Util qw(first);
use Math::Geometry::Voronoi;
use Slic3r::Geometry qw(X Y A B point_in_polygon same_line epsilon);
use Slic3r::Geometry::Clipper qw(union_ex JT_MITER);
use Storable qw();
# the constructor accepts an array of polygons
# or a Math::Clipper ExPolygon (hashref)
@ -28,8 +29,7 @@ sub new {
}
sub clone {
my $self = shift;
return (ref $self)->new(map $_->clone, @$self);
Storable::dclone($_[0])
}
sub contour {