Fixes bug #15273, the return of the object caused

the stash of the object to be cloned, cloning the entire syntax
tree and all lexicals in there creating danglning copies to the
object. (Pararell but unlinked STASH tree).
This adds a new flag, when set it will use STASHES from the
thread we are joining into avoiding the problem.

p4raw-id: //depot/perl@18419

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index d87ba113b6..7c5e6dca06 100644
--- a/sv.h
+++ b/sv.h
@@ -1186,6 +1186,7 @@ Returns a pointer to the character buffer.
 #define CLONEf_COPY_STACKS 1
 #define CLONEf_KEEP_PTR_TABLE 2
 #define CLONEf_CLONE_HOST 4
+#define CLONEf_JOIN_IN 8
 
 struct clone_params {
   AV* stashes;