Use srefgen for anoncode

[perl5.git] / utf8.c

diff --git a/utf8.c b/utf8.c
index 000b340..a7baed4 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2368,17 +2368,9 @@ Perl__core_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 m
            ENTER;
            if ((errsv_save = GvSV(PL_errgv))) SAVEFREESV(errsv_save);
            GvSV(PL_errgv) = NULL;
+#ifndef NO_TAINT_SUPPORT
            /* 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
-            * PL_tainted.  */
-#ifndef NO_TAINT_SUPPORT
            SAVEBOOL(TAINT_get);
            TAINT_NOT;
 #endif