From 583fc767d851248bc0ece0f3fad548fdcd01d612 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 18 Nov 2013 17:20:48 +0100
Subject: [PATCH] Fix regression in Avoid Crossing Perimeters. #1531

---
 lib/Slic3r/Print.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Slic3r/Print.pm b/lib/Slic3r/Print.pm
index f178fdde0..a9c9ef333 100644
--- a/lib/Slic3r/Print.pm
+++ b/lib/Slic3r/Print.pm
@@ -790,7 +790,7 @@ sub write_gcode {
                 $expolygon->translate(scale $shift[X], scale $shift[Y]);
                 my @island = @{$expolygon->offset_ex(scale $distance_from_objects, 1, JT_SQUARE)};
                 foreach my $copy (@{ $self->objects->[$obj_idx]->copies }) {
-                    push @islands, map $_->clone->translate(@$copy), @island;
+                    push @islands, map { my $c = $_->clone; $c->translate(@$copy); $c } @island;
                 }
             }
         }