Use dclone() in Point class too

This commit is contained in:
Alessandro Ranellucci 2013-07-05 14:48:03 +02:00
parent 72f77a3420
commit be4eb3762f

View File

@ -2,6 +2,8 @@ package Slic3r::Point;
use strict; use strict;
use warnings; use warnings;
use Storable qw();
sub new { sub new {
my $class = shift; my $class = shift;
my $self; my $self;
@ -19,8 +21,7 @@ sub new {
} }
sub clone { sub clone {
my $self = shift; Storable::dclone($_[0])
return (ref $self)->new(@$self);
} }
sub coincides_with { sub coincides_with {