From 09b81ad02792802bc6cc2a3396ae8cc817940bb7 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 3 Jun 2013 21:27:09 +0200
Subject: [PATCH] Fix typo causing regression in island ordering. #1211

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

diff --git a/lib/Slic3r/Layer/Region.pm b/lib/Slic3r/Layer/Region.pm
index 1e32aff94..472c2da52 100644
--- a/lib/Slic3r/Layer/Region.pm
+++ b/lib/Slic3r/Layer/Region.pm
@@ -247,7 +247,7 @@ sub make_perimeters {
         )};
         
         my @loops = ();
-        foreach my $polynode (@$polynodes) {
+        foreach my $polynode (@nodes) {
             push @loops, $traverse->($polynode->{children}, $depth+1, $is_contour);
 
             my $role = EXTR_ROLE_PERIMETER;