diff --git a/lib/Slic3r/Point.pm b/lib/Slic3r/Point.pm index b820a1e83..233f60f34 100644 --- a/lib/Slic3r/Point.pm +++ b/lib/Slic3r/Point.pm @@ -2,6 +2,8 @@ package Slic3r::Point; use strict; use warnings; +use Storable qw(); + sub new { my $class = shift; my $self; @@ -19,8 +21,7 @@ sub new { } sub clone { - my $self = shift; - return (ref $self)->new(@$self); + Storable::dclone($_[0]) } sub coincides_with {