Some minor fixes related to polyline refactoring

lib/Slic3r/Fill/Flowsnake.pm

@@ -12,7 +12,7 @@ sub process_polyline {
     my $self = shift;
     my ($polyline, $bounding_box) = @_;
     
-    $_->[X] += ($bounding_box->[X1] + $bounding_box->[X2]/2) for @{$polyline->points};
+    $_->[X] += ($bounding_box->[X1] + $bounding_box->[X2]/2) for @$polyline;
 }
 
 1;

lib/Slic3r/Polygon.pm

@@ -137,7 +137,7 @@ sub is_printable {
 
 sub is_valid {
     my $self = shift;
-    return @{$self->points} >= 3;
+    return @$self >= 3;
 }
 
 1;

lib/Slic3r/Polyline.pm

@@ -63,7 +63,7 @@ sub simplify {
 
 sub reverse_points {
     my $self = shift;
-    @{$self->points} = reverse @{$self->points};
+    @$self = reverse @$self;
 }
 
 sub is_counter_clockwise {
@@ -152,13 +152,13 @@ sub clip_with_expolygon {
 
 sub bounding_box {
     my $self = shift;
-    return Slic3r::Geometry::bounding_box($self->points);
+    return Slic3r::Geometry::bounding_box($self);
 }
 
 sub translate {
     my $self = shift;
     my ($x, $y) = @_;
-    @{$self->points} = move_points([$x, $y], @{$self->points});
+    @$self = move_points([$x, $y], @$self);
 }
 
 1;