Browse files

Merge pull request #10 from frett/master

Preserve call stack in cloned interpreter
  • Loading branch information...
2 parents 06f83d6 + 929a32d commit 89fefacdcc98295981121cb66fdf9677b735cfe7 @dpavlin committed Oct 23, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 Fuse.xs
View
4 Fuse.xs
@@ -100,9 +100,9 @@ tTHX S_clone_interp(tTHX parent) {
PERL_SET_CONTEXT(parent);
dTHX;
#if (PERL_VERSION > 10) || (PERL_VERSION == 10 && PERL_SUBVERSION >= 1)
- tTHX child = perl_clone(parent, CLONEf_CLONE_HOST);
+ tTHX child = perl_clone(parent, CLONEf_CLONE_HOST | CLONEf_COPY_STACKS);
#else
- tTHX child = perl_clone(parent, CLONEf_CLONE_HOST | CLONEf_KEEP_PTR_TABLE);
+ tTHX child = perl_clone(parent, CLONEf_CLONE_HOST | CLONEf_COPY_STACKS | CLONEf_KEEP_PTR_TABLE);
ptr_table_free(PL_ptr_table);
PL_ptr_table = NULL;
#endif

0 comments on commit 89fefac

Please sign in to comment.