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

@ -6,6 +6,7 @@ use Scalar::Util qw(reftype);
use Slic3r::Geometry qw(A B X Y X1 X2 Y1 Y2 polyline_remove_parallel_continuous_edges polyline_remove_acute_vertices
polyline_lines move_points same_point);
use Slic3r::Geometry::Clipper qw(JT_SQUARE);
use Storable qw();
# the constructor accepts an array(ref) of points
sub new {
@ -18,8 +19,7 @@ sub new {
}
sub clone {
my $self = shift;
return (ref $self)->new(map $_->clone, @$self);
Storable::dclone($_[0])
}
sub serialize {