From be4eb3762f765b6532afd45536bfa63c1b471e39 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 5 Jul 2013 14:48:03 +0200
Subject: [PATCH] Use dclone() in Point class too

---
 lib/Slic3r/Point.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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 {