changes to perl tests to handle perl without taint support

2 files changed, 15 insertions, 4 deletions

diff --git a/t/run/runenv.t b/t/run/runenv.t
index a406fd3174..b32b4f20a9 100644
--- a/t/run/runenv.t
+++ b/t/run/runenv.t
@@ -123,10 +123,15 @@ try({PERL5OPT => '-w -w'},
     '-w -w',
     '');
 
-try({PERL5OPT => '-t'},
-    ['-e', 'print ${^TAINT}'],
-    '-1',
-    '');
+SKIP: {
+    if (exists($Config{taint_support}) && !$Config{taint_support}) {
+        skip("built without taint support", 2);
+    }
+    try({PERL5OPT => '-t'},
+        ['-e', 'print ${^TAINT}'],
+        '-1',
+        '');
+}
 
 try({PERL5OPT => '-W'},
     ['-I../lib','-e', 'local $^W = 0;  no warnings;  print $x'],
diff --git a/t/run/switcht.t b/t/run/switcht.t
index 01b9f2f623..533d8be992 100644
--- a/t/run/switcht.t
+++ b/t/run/switcht.t
@@ -6,6 +6,12 @@ BEGIN {
     require './test.pl';
 }
 
+use Config;
+
+if (exists($Config{taint_support}) && !$Config{taint_support}) {
+    skip_all("perl built without taint support");
+}
+
 plan tests => 13;
 
 my $Perl = which_perl();