Repository: lucy-clownfish Updated Branches: refs/heads/master c25e32913 -> 165f9ffff
Mark Clownfish Perl objects as non-threadsafe Define CLONE_SKIP in Clownfish::Obj so that objects won't be cloned in child threads. Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/165f9fff Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/165f9fff Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/165f9fff Branch: refs/heads/master Commit: 165f9ffffd53a9cc95cd2284b17042960750c093 Parents: c25e329 Author: Nick Wellnhofer <[email protected]> Authored: Sun Aug 3 12:33:51 2014 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Sun Aug 3 12:33:51 2014 +0200 ---------------------------------------------------------------------- runtime/perl/lib/Clownfish.pm | 2 ++ 1 file changed, 2 insertions(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/165f9fff/runtime/perl/lib/Clownfish.pm ---------------------------------------------------------------------- diff --git a/runtime/perl/lib/Clownfish.pm b/runtime/perl/lib/Clownfish.pm index 7dff615..5f1bdd1 100644 --- a/runtime/perl/lib/Clownfish.pm +++ b/runtime/perl/lib/Clownfish.pm @@ -86,6 +86,8 @@ sub error {$Clownfish::Err::error} $VERSION = eval $VERSION; use Clownfish qw( to_clownfish to_perl ); use Carp qw( confess ); + # Clownfish objects are not thread-safe. + sub CLONE_SKIP { 1; } sub STORABLE_freeze { my $class_name = ref(shift); confess("Storable serialization not implemented for $class_name");
