From af1a47c461f4ff81ca88da934fd3adfe8f3245bd Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 10 Jun 2014 00:54:37 +0200
Subject: [PATCH] Minor optimization

---
 lib/Slic3r/Layer.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/Slic3r/Layer.pm b/lib/Slic3r/Layer.pm
index e67da8add..5eaea34fb 100644
--- a/lib/Slic3r/Layer.pm
+++ b/lib/Slic3r/Layer.pm
@@ -44,7 +44,12 @@ sub region {
 sub make_slices {
     my $self = shift;
     
-    my $slices = union_ex([ map $_->p, map @{$_->slices}, @{$self->regions} ]);
+    my $slices;
+    if (@{$self->regions} == 1) {
+        $slices = [ map $_->expolygon->clone, @{$self->regions->[0]->slices} ];
+    } else {
+        $slices = union_ex([ map $_->p, map @{$_->slices}, @{$self->regions} ]);
+    }
     
     # sort slices
     $slices = [ @$slices[@{chained_path([ map $_->contour->first_point, @$slices ])}] ];