3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-25 15:44:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

Workaround dclone() not being thread-safe

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-07-06 12:14:49 +02:00
parent 9dbf21235c
commit 8d1069766b
3 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/Slic3r/ExPolygon.pm
View file

@ -32,6 +32,11 @@ sub clone {
Storable::dclone($_[0]) Storable::dclone($_[0])
} }
sub threadsafe_clone {
my $self = shift;
return (ref $self)->new(map $_->threadsafe_clone, @$self);
}
sub contour { sub contour {
my $self = shift; my $self = shift;
return $self->[0]; return $self->[0];
@ -303,7 +308,7 @@ has 'expolygons' => (is => 'ro', default => sub { [] });
sub clone { sub clone {
my $self = shift; my $self = shift;
return (ref $self)->new( return (ref $self)->new(
expolygons => [ map $_->clone, @{$self->expolygons} ], expolygons => [ map $_->threadsafe_clone, @{$self->expolygons} ],
); );
} }

5
lib/Slic3r/Point.pm
View file

@ -24,6 +24,11 @@ sub clone {
Storable::dclone($_[0]) Storable::dclone($_[0])
} }
sub threadsafe_clone {
my $self = shift;
return (ref $self)->new(@$self);
}
sub coincides_with { sub coincides_with {
my $self = shift; my $self = shift;
my ($point) = @_; my ($point) = @_;

5
lib/Slic3r/Polyline.pm
View file

@ -22,6 +22,11 @@ sub clone {
Storable::dclone($_[0]) Storable::dclone($_[0])
} }
sub threadsafe_clone {
my $self = shift;
return (ref $self)->new(map $_->threadsafe_clone, @$self);
}
sub serialize { sub serialize {
my $self = shift; my $self = shift;
return pack 'l*', map @$_, @$self; return pack 'l*', map @$_, @$self;