Change 11299 by jhi@alpha on 2001/07/12 12:33:57
Subject: [PATCH] fix for PMOP threadness failures
From: Artur Bergman <[EMAIL PROTECTED]>
Date: Thu, 12 Jul 2001 09:48:06 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/regexec.c#174 edit
Differences ...
==== //depot/perl/regexec.c#174 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Thu Jul 12 06:45:05 2001
+++ perl/regexec.c Thu Jul 12 06:45:05 2001
@@ -1850,8 +1850,17 @@
PL_reg_oldpos = mg->mg_len;
SAVEDESTRUCTOR_X(restore_pos, 0);
}
- if (!PL_reg_curpm)
+ if (!PL_reg_curpm) {
Newz(22,PL_reg_curpm, 1, PMOP);
+#ifdef USE_ITHREADS
+ {
+ SV* repointer = newSViv(0);
+ av_push(PL_regex_padav,repointer);
+ PL_reg_curpm->op_pmoffset = av_len(PL_regex_padav);
+ PL_regex_pad = AvARRAY(PL_regex_padav);
+ }
+#endif
+ }
PM_SETRE(PL_reg_curpm, prog);
PL_reg_oldcurpm = PL_curpm;
PL_curpm = PL_reg_curpm;
End of Patch.
