From b5b0c2cc8944375d9361086236d8f332517a4dea Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sun, 19 May 2013 10:47:00 +0200
Subject: [PATCH] Bad copy and paste in commit from yesterday causing loss of
 perimeters. #1178

---
 lib/Slic3r/GCode/Layer.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Slic3r/GCode/Layer.pm b/lib/Slic3r/GCode/Layer.pm
index 4a6eb366dc..1cb0b90bab 100644
--- a/lib/Slic3r/GCode/Layer.pm
+++ b/lib/Slic3r/GCode/Layer.pm
@@ -176,8 +176,11 @@ sub _extrude_perimeters {
     my ($island, $region) = @_;
     
     return "" if !@{ $island->{perimeters} };
-    return $self->gcodegen->set_extruder($region->extruders->{perimeter})
-        . $self->gcodegen->extrude($_, 'perimeter') for @{ $island->{perimeters} };
+    
+    my $gcode = "";
+    $gcode .= $self->gcodegen->set_extruder($region->extruders->{perimeter});
+    $gcode .= $self->gcodegen->extrude($_, 'perimeter') for @{ $island->{perimeters} };
+    return $gcode;
 }
 
 sub _extrude_infill {