Failing test cases for Clipper bug returning empty result set. #2028

lib/Slic3r/Layer/Region.pm

@@ -302,7 +302,7 @@ sub make_perimeters {
                         height          => $self->height,
                     );
                 }
-        
+                
                 # reapply the nearest point search for starting point
                 # (clone because the collection gets DESTROY'ed)
                 # We allow polyline reversal because Clipper may have randomly

lib/Slic3r/Polygon.pm

@@ -15,6 +15,11 @@ sub wkt {
     return sprintf "POLYGON((%s))", join ',', map "$_->[0] $_->[1]", @$self;
 }
 
+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(@_);