Skip all if built with -DSILENT_NO_TAINT_SUPPORT

What formerly was bug ticket RT # 134287 is now GH issue #17095.
Perl · May 8, 2021 · edd0d05 · edd0d05
1 parent 1e43c13
commit edd0d05
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/t/op/taint.t b/t/op/taint.t
@@ -12,6 +12,14 @@ BEGIN {
     require './test.pl';
     set_up_inc('../lib');
     require './loc_tools.pl';
+    use Config;
+    skip_all("perl built with SILENT_NO_TAINT_SUPPORT") if (
+        $Config{ccflags} =~ m/-DSILENT_NO_TAINT_SUPPORT/
+            or
+        $Config{cppflags} =~ m/-DSILENT_NO_TAINT_SUPPORT/
+            or
+        $Config{ccflags_nolargefiles} =~ m/-DSILENT_NO_TAINT_SUPPORT/
+    );
 }
 
 use strict;