Do hole perimeters in ccw direction too

lib/Slic3r/Perimeter.pm

@@ -115,6 +115,7 @@ sub make_perimeter {
         }
         
         foreach my $hole (@holes) {
+            $hole->reverse;
             push @{ $layer->perimeters }, Slic3r::ExtrusionLoop->new(polygon => $hole, role => 'perimeter');
         }
         

lib/Slic3r/Polygon.pm

@@ -30,6 +30,11 @@ sub clone {
     return (ref $self)->new(map $_->clone, @$self);
 }
 
+sub reverse {
+    my $self = shift;
+    @$self = reverse @$self;
+}
+
 sub lines {
     my $self = shift;
     return map Slic3r::Line->new($_), polygon_lines($self);