REGEXPs are now stored directly in PL_regex_padav, rather than

indirectly via RVs. This saves memory, and removes 1 level of pointer
indirection.

p4raw-id: //depot/perl@32950

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 3a7d461d28..e64846fdd0 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2255,7 +2255,7 @@ S_regtry(pTHX_ regmatch_info *reginfo, char **startpos)
 	    Newxz(PL_reg_curpm, 1, PMOP);
 #ifdef USE_ITHREADS
             {
-		SV* const repointer = newSViv(0);
+		SV* const repointer = &PL_sv_undef;
                 /* this regexp is also owned by the new PL_reg_curpm, which
 		   will try to free it.  */
                 av_push(PL_regex_padav, repointer);