Threadsafe PMOPs! We might still win this war.

Message-ID: <000b01c10a04$4fa16a10$21000a0a@vogw2kdev>

Threadsafe PMOPs for ithreads, waiting for AMS's Perl_re_dup().

p4raw-id: //depot/perl@11274

1 files changed, 13 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index a7e1bda293..da6bc2b925 100644
--- a/sv.c
+++ b/sv.c
@@ -9693,6 +9693,19 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_statusvalue_vms	= proto_perl->Istatusvalue_vms;
 #endif
 
+        /* Clone the regex array */
+        PL_regex_padav = newAV();
+        {
+                I32 len = av_len((AV*)proto_perl->Iregex_padav);
+                SV** regexen = AvARRAY((AV*)proto_perl->Iregex_padav);
+                for(i = 0; i <= len; i++) {                             
+                        av_push(PL_regex_padav,
+                            newSViv((IV)re_dup((REGEXP*) SvIV(regexen[i])) ));
+                }
+        }
+        PL_regex_pad = AvARRAY(PL_regex_padav);
+        
+
     /* shortcuts to various I/O objects */
     PL_stdingv		= gv_dup(proto_perl->Istdingv, param);
     PL_stderrgv		= gv_dup(proto_perl->Istderrgv, param);