1 files changed, 0 insertions, 49 deletions
diff --git a/ext/Test-Harness/t/taint.t b/ext/Test-Harness/t/taint.t
deleted file mode 100644
index 2812fc4375..0000000000
--- a/ext/Test-Harness/t/taint.t
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
-    unshift @INC, 't/lib';
-}
-
-# Test that options in PERL5OPT are propogated to tainted tests
-
-use strict;
-use Test::More ( $^O eq 'VMS' ? ( skip_all => 'VMS' ) : ( tests => 1 ) );
-
-use Config;
-use TAP::Parser;
-
-my $lib_path = join( ', ', map "'$_'", grep !ref, grep defined, @INC );
-
-sub run_test_file {
-    my ( $test_template, @args ) = @_;
-
-    my $test_file = 'temp_test.tmp';
-
-    open TEST, ">$test_file" or die $!;
-    printf TEST $test_template, @args;
-    close TEST;
-
-    my $p = TAP::Parser->new(
-        {   source => $test_file,
-
-            # Test taint when there's spaces in a -I path
-            switches => [q["-Ifoo bar"]],
-        }
-    );
-    1 while $p->next;
-    ok !$p->has_problems;
-
-    unlink $test_file;
-}
-
-{
-    local $ENV{PERL5OPT} = $ENV{PERL_CORE} ? '-I../../lib -Mstrict' : '-Mstrict';
-    run_test_file(<<'END');
-#!/usr/bin/perl -T
-
-print "1..1\n";
-print $INC{'strict.pm'} ? "ok 1\n" : "not ok 1\n";
-END
-}
-
-1;