cloned interpreters now actually run and pass all but 55/10386

subtests; various subtle bugs, new and old, observed when running
cloned interpreters have been fixed

still to do:
|  * dup psig_ptr table
|  * merge PADOP GVs support with "our" SVs (existing PADOPs are too
|    simple-minded and grab one pad entry each, heavily bloating
|    the pad by not avoiding dups)
|  * overloaded constants are not really immutable--they need to
|    be PADOPs
|  * allocator for constants and OPs need to be spelled differently
|    (shared vs interpreter-local allocations)
|  * optree refcounting is still missing locking (macros are in place)
|  * curstackinfo, {mark,scope,save,ret}stack need to be cloned so
|    perl_clone() can be called from within runops*()

p4raw-id: //depot/perl@4553

1 files changed, 6 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 1fb26c3a6c..443eed0a53 100644
--- a/pp.c
+++ b/pp.c
@@ -4938,8 +4938,13 @@ PP(pp_split)
     TAINT_IF((pm->op_pmflags & PMf_LOCALE) &&
 	     (pm->op_pmflags & (PMf_WHITE | PMf_SKIPWHITE)));
 
-    if (pm->op_pmreplroot)
+    if (pm->op_pmreplroot) {
+#ifdef USE_ITHREADS
+	ary = GvAVn((GV*)PL_curpad[(PADOFFSET)pm->op_pmreplroot]);
+#else
 	ary = GvAVn((GV*)pm->op_pmreplroot);
+#endif
+    }
     else if (gimme != G_ARRAY)
 #ifdef USE_THREADS
 	ary = (AV*)PL_curpad[0];