From 27c421c27f2fb9bffc82446bbbd3fb809b8bed65 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 5 Jul 2013 14:21:20 +0200
Subject: [PATCH] Slight optimization

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

diff --git a/lib/Slic3r/Layer/Region.pm b/lib/Slic3r/Layer/Region.pm
index bab64317f..3c79fd324 100644
--- a/lib/Slic3r/Layer/Region.pm
+++ b/lib/Slic3r/Layer/Region.pm
@@ -5,7 +5,7 @@ use List::Util qw(sum first);
 use Slic3r::ExtrusionPath ':roles';
 use Slic3r::Geometry qw(PI A B scale chained_path_items points_coincide);
 use Slic3r::Geometry::Clipper qw(safety_offset union_ex diff_ex intersection_ex 
-    offset offset2_ex PFT_EVENODD union_pt traverse_pt diff intersection);
+    offset offset2 offset2_ex PFT_EVENODD union_pt traverse_pt diff intersection);
 use Slic3r::Surface ':types';
 
 has 'layer' => (
@@ -98,12 +98,9 @@ sub make_surfaces {
     # detect thin walls by offsetting slices by half extrusion inwards
     {
         my $width = $self->perimeter_flow->scaled_width;
-        my $outgrown = [
-            offset2_ex([ map @$_, map $_->expolygon, @{$self->slices} ], -$width, +$width),
-        ];
         my $diff = diff_ex(
             [ map $_->p, @{$self->slices} ],
-            [ map @$_, @$outgrown ],
+            [ offset2([ map @$_, map $_->expolygon, @{$self->slices} ], -$width, +$width) ],
             1,
         );