regcomp.c - silence build warning under NO_TAINT_SUPPORT

The variable 'oldtainted' is unused when NO_TAINT_SUPPORT is defined. This patch ifdefs it out of the compiled code. This should resolve GH Issue #19654 See: #19654
Perl · May 11, 2022 · d33f200 · d33f200
1 parent a7b5e0e
commit d33f200
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/regcomp.c b/regcomp.c
@@ -9390,7 +9390,9 @@ S_invlist_replace_list_destroys_src(pTHX_ SV * dest, SV * src)
     const STRLEN src_byte_len = SvLEN(src);
     char * array              = SvPVX(src);
 
+#ifndef NO_TAINT_SUPPORT
     const int oldtainted = TAINT_get;
+#endif
 
     PERL_ARGS_ASSERT_INVLIST_REPLACE_LIST_DESTROYS_SRC;