also check for SILENT_NO_TAINT_SUPPORT

and don't verify in that case.
renormalist · Sep 16, 2021 · d46e57a · d46e57a
1 parent db11f38
commit d46e57a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/Benchmark/Perl/Formance.pm b/lib/Benchmark/Perl/Formance.pm
@@ -427,8 +427,12 @@ sub _get_perl_config_notaintsupport {
 
         my $config_args = $Config{config_args};
         my $notaintsupport = 0; # standard
-        if ($config_args =~ /-DNO_TAINT_SUPPORT\b/ and not _taint_available()) {
-          $notaintsupport = 1;
+        if ($config_args =~ /(SILENT_)?NO_TAINT_SUPPORT\b/) {
+            if ($config_args =~ /SILENT_NO_TAINT_SUPPORT\b/) {
+                $notaintsupport = 1; # no further check possible
+            } else {
+                $notaintsupport = 1 if not _taint_available();
+            }
         }
         return $notaintsupport;
 }