From 710275f7c0d9e2de9386eadbab179fc38ad26336 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 1 May 2012 15:33:24 +0200
Subject: [PATCH] Reverse perimeter order for holes. #214

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

diff --git a/lib/Slic3r/Layer.pm b/lib/Slic3r/Layer.pm
index 370964f41..779f75815 100644
--- a/lib/Slic3r/Layer.pm
+++ b/lib/Slic3r/Layer.pm
@@ -276,7 +276,7 @@ sub make_perimeters {
             }
         }
         
-        foreach my $hole (@holes) {
+        foreach my $hole (reverse @holes) {
             push @{ $self->perimeters }, Slic3r::ExtrusionLoop->new(polygon => $hole, role => 'perimeter');
         }