From bec2371604824df0680f962cea9e6051ee522e7b Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 22 Feb 2013 16:56:43 +0100
Subject: [PATCH] Fix regression introduced in
 91bcfc8a74425b1bfe3577460e5c3f48bcf17b9e

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

diff --git a/lib/Slic3r/Layer/Region.pm b/lib/Slic3r/Layer/Region.pm
index 68a227846..5f4417231 100644
--- a/lib/Slic3r/Layer/Region.pm
+++ b/lib/Slic3r/Layer/Region.pm
@@ -57,11 +57,15 @@ sub _update_flows {
     my $self = shift;
     return if !$self->region;
     
-    $self->perimeter_flow
-        ($self->region->first_layer_flows->{perimeter} || $self->region->flows->{perimeter});
-    
-    $self->infill_flow
-        ($self->region->first_layer_flows->{infill} || $self->region->flows->{infill});
+    if ($self->id == 0) {
+        $self->perimeter_flow
+            ($self->region->first_layer_flows->{perimeter} || $self->region->flows->{perimeter});
+        $self->infill_flow
+            ($self->region->first_layer_flows->{infill} || $self->region->flows->{infill});
+    } else {
+        $self->perimeter_flow($self->region->flows->{perimeter});
+        $self->infill_flow($self->region->flows->{infill});
+    }
 }
 
 sub _build_overhang_width {