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, 3 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index cef5c4783a..90d7134e3a 100644
--- a/perl.c
+++ b/perl.c
@@ -312,7 +312,9 @@ perl_construct(pTHXx)
     PL_fdpid = newAV();			/* for remembering popen pids by fd */
     PL_modglobal = newHV();		/* pointers to per-interpreter module globals */
     PL_errors = newSVpvn("",0);
-
+#ifdef USE_ITHREADS
+        PL_regex_padav = newAV();
+#endif
     ENTER;
 }