Fixed regression causing support material generation to fail under threaded perls

This commit is contained in:
Alessandro Ranellucci 2012-10-29 19:38:40 +01:00
parent df4dcf0534
commit 709cbc1c15

View File

@ -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;