Workaround dclone() not being thread-safe

2026-07-20 09:34:26 +00:00 · 2013-07-06 12:14:49 +02:00
parent 9dbf21235c
commit 8d1069766b
3 changed files with 16 additions and 1 deletions
@@ -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) = @_;