Workaround dclone() not being thread-safe

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

View file

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