From 709cbc1c15b5f90eb6484b49ebea884fce04ebd2 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 29 Oct 2012 19:38:40 +0100
Subject: [PATCH] Fixed regression causing support material generation to fail
 under threaded perls

---
 lib/Slic3r/Print/Object.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Slic3r/Print/Object.pm b/lib/Slic3r/Print/Object.pm
index dac760250..cba8dedd6 100644
--- a/lib/Slic3r/Print/Object.pm
+++ b/lib/Slic3r/Print/Object.pm
@@ -647,7 +647,8 @@ sub generate_support_material {
             },
             collect_cb => sub {
                 my $paths = shift;
-                ($layer_paths{$_}, $layer_interface_paths{$_}) = @{ $paths->{$_} } for keys %$paths;
+                $layer_paths{$_}            = $paths->[0]{$_} for keys %{$paths->[0]};
+                $layer_interface_paths{$_}  = $paths->[1]{$_} for keys %{$paths->[1]};
             },
             no_threads_cb => sub {
                 ($layer_paths{$_}, $layer_interface_paths{$_}) = $process_layer->($_) for keys %layers;