This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Move an #ifndef for clarity
authorFather Chrysostomos <sprout@cpan.org>
Fri, 12 Sep 2014 23:34:40 +0000 (16:34 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 12 Sep 2014 23:34:40 +0000 (16:34 -0700)
The comment really belongs inside it, as it refers to those two
lines of code.

utf8.c

diff --git a/utf8.c b/utf8.c
index f4e7425..a7baed4 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2368,9 +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.  */
-#ifndef NO_TAINT_SUPPORT
            SAVEBOOL(TAINT_get);
            TAINT_NOT;
 #endif