From a3a9cf5749c8c72663e4fa5f19d31f54b1ab60b8 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Thu, 12 Jan 2012 10:48:18 +0100
Subject: [PATCH] Yet other things not changed when refactored. #163

---
 lib/Slic3r/Fill/Concentric.pm  | 2 +-
 lib/Slic3r/Fill/PlanePath.pm   | 4 +---
 lib/Slic3r/Fill/Rectilinear.pm | 2 +-
 3 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/lib/Slic3r/Fill/Concentric.pm b/lib/Slic3r/Fill/Concentric.pm
index 1624a449..f216f275 100644
--- a/lib/Slic3r/Fill/Concentric.pm
+++ b/lib/Slic3r/Fill/Concentric.pm
@@ -61,7 +61,7 @@ sub fill_surface {
         # clip the path to avoid the extruder to get exactly on the first point of the loop
         $path->clip_end(scale $Slic3r::nozzle_diameter / 2);
         
-        push @paths, $path if @{$path->points};
+        push @paths, $path->points if @{$path->points};
     }
     
     return { flow_spacing => $flow_spacing }, @paths;
diff --git a/lib/Slic3r/Fill/PlanePath.pm b/lib/Slic3r/Fill/PlanePath.pm
index ae87ce4c..28aa7c88 100644
--- a/lib/Slic3r/Fill/PlanePath.pm
+++ b/lib/Slic3r/Fill/PlanePath.pm
@@ -43,7 +43,7 @@ sub fill_surface {
     my $polyline = Slic3r::Polyline->new([
         map [ map {$_*$distance_between_lines} $path->n_to_xy($_) ], @n,
     ]);
-    return {} if !@{$polyline->points};
+    return {} if !@$polyline;
     
     $self->process_polyline($polyline, $bounding_box);
     
@@ -58,8 +58,6 @@ sub fill_surface {
         );
     }
     
-    @paths = map $_, @paths;
-    
     # paths must be rotated back
     $self->rotate_points_back(\@paths, $rotate_vector);
     
diff --git a/lib/Slic3r/Fill/Rectilinear.pm b/lib/Slic3r/Fill/Rectilinear.pm
index dcb14e6e..0f6db9bd 100644
--- a/lib/Slic3r/Fill/Rectilinear.pm
+++ b/lib/Slic3r/Fill/Rectilinear.pm
@@ -74,7 +74,7 @@ sub fill_surface {
                     next;
                 }
             }
-            push @paths, [@{$path->points}];
+            push @paths, $path->points;
         }
     }