diff --git a/lib/Slic3r/Polygon.pm b/lib/Slic3r/Polygon.pm
index 1d089189c1..16b334b3af 100644
--- a/lib/Slic3r/Polygon.pm
+++ b/lib/Slic3r/Polygon.pm
@@ -7,11 +7,6 @@ use parent 'Slic3r::Polyline';
 
 use Slic3r::Geometry qw(PI);
 
-sub dump_perl {
-    my $self = shift;
-    return sprintf "[%s]", join ',', map "[$_->[0],$_->[1]]", @$self;
-}
-
 sub grow {
     my $self = shift;
     return $self->split_at_first_point->grow(@_);
diff --git a/lib/Slic3r/Polyline.pm b/lib/Slic3r/Polyline.pm
index a42b5d1c4a..9cc1424093 100644
--- a/lib/Slic3r/Polyline.pm
+++ b/lib/Slic3r/Polyline.pm
@@ -10,4 +10,9 @@ sub new_scale {
     return $class->new(map [ Slic3r::Geometry::scale($_->[X]), Slic3r::Geometry::scale($_->[Y]) ], @points);
 }
 
+sub dump_perl {
+    my $self = shift;
+    return sprintf "[%s]", join ',', map "[$_->[0],$_->[1]]", @$self;
+}
+
 1;