This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Remove redundant S_regcp_restore call
authorFather Chrysostomos <sprout@cpan.org>
Sun, 24 Nov 2013 06:37:30 +0000 (22:37 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 24 Nov 2013 15:45:51 +0000 (07:45 -0800)
made redundant by e4bfbed3.

regexec.c

index 6de1783..072470d 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -5177,10 +5177,6 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
                               scalar.  */
                            sv_magic(ret, MUTABLE_SV(re_sv), PERL_MAGIC_qr, 0, 0);
                        }
-                       /* safe to do now that any $1 etc has been
-                        * interpolated into the new pattern string and
-                        * compiled */
-                       S_regcp_restore(aTHX_ rex, runops_cp, &maxopenparen);
                    }
                    SAVEFREESV(re_sv);
                    re = ReANY(re_sv);