1 files changed, 9 insertions, 2 deletions
diff --git a/ext/POSIX/t/taint.t b/ext/POSIX/t/taint.t
index 3ca01743e0..5a960c714b 100644
--- a/ext/POSIX/t/taint.t
+++ b/ext/POSIX/t/taint.t
@@ -8,9 +8,16 @@ BEGIN {
     }
 }
 
-use Test::More tests => 7;
-use Scalar::Util qw/tainted/;
+use Test::More;
+BEGIN {
+    plan(
+        ${^TAINT}
+        ? (tests => 7)
+        : (skip_all => "A perl without taint support")
+    );
+}
 
+use Scalar::Util qw/tainted/;
 
 use POSIX qw(fcntl_h open read mkfifo);
 use strict ;