This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don’t call save_re_context
authorFather Chrysostomos <sprout@cpan.org>
Fri, 12 Sep 2014 23:22:03 +0000 (16:22 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 12 Sep 2014 23:22:03 +0000 (16:22 -0700)
It is an empty function.

mg.c
regcomp.c
sv.c
utf8.c
util.c

diff --git a/mg.c b/mg.c
index 9dc0679..01fa6b4 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1759,7 +1759,6 @@ Perl_magic_methcall(pTHX_ SV *sv, const MAGIC *mg, SV *meth, U32 flags,
     if (flags & G_WRITING_TO_STDERR) {
        SAVETMPS;
 
-       save_re_context();
        SAVESPTR(PL_stderrgv);
        PL_stderrgv = NULL;
     }
index fa08229..a3eccfa 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6054,7 +6054,6 @@ S_compile_runtime_code(pTHX_ RExC_state_t * const pRExC_state,
 
        ENTER;
        SAVETMPS;
-       save_re_context();
        PUSHSTACKi(PERLSI_REQUIRE);
         /* G_RE_REPARSING causes the toker to collapse \\ into \ when
          * parsing qr''; normally only q'' does this. It also alters
diff --git a/sv.c b/sv.c
index c71f5c5..1ae347a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -14875,7 +14875,6 @@ Perl_sv_recode_to_utf8(pTHX_ SV *sv, SV *encoding)
            nsv = sv_newmortal();
            SvSetSV_nosteal(nsv, sv);
        }
-       save_re_context();
        PUSHMARK(sp);
        EXTEND(SP, 3);
        PUSHs(encoding);
@@ -14946,7 +14945,6 @@ Perl_sv_cat_decode(pTHX_ SV *dsv, SV *encoding,
        dSP;
        ENTER;
        SAVETMPS;
-       save_re_context();
        PUSHMARK(sp);
        EXTEND(SP, 6);
        PUSHs(encoding);
diff --git a/utf8.c b/utf8.c
index a59445e..000b340 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2357,7 +2357,6 @@ Perl__core_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 m
        PUSHSTACKi(PERLSI_MAGIC);
        ENTER;
        SAVEHINTS();
-       save_re_context();
        /* We might get here via a subroutine signature which uses a utf8
         * parameter name, at which point PL_subname will have been set
         * but not yet used. */
@@ -2371,6 +2370,10 @@ Perl__core_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 m
            GvSV(PL_errgv) = NULL;
            /* It is assumed that callers of this routine are not passing in
             * any user derived data.  */
+           /* XXX The following comment is out of date.  The
+                  save_re_context() call used to be right after
+                  SAVEHINTS() above, but no longer exists.  Does the
+                  errsv_save bit still apply?  */
            /* Need to do this after save_re_context() as it will set
             * PL_tainted to 1 while saving $1 etc (see the code after getrx:
             * in Perl_magic_get).  Even line to create errsv_save can turn on
diff --git a/util.c b/util.c
index dea60ac..d6501bd 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1533,7 +1533,6 @@ S_invoke_exception_hook(pTHX_ SV *ex, bool warn)
        SV *exarg;
 
        ENTER;
-       save_re_context();
        if (warn) {
            SAVESPTR(*hook);
            *hook = NULL;