1#!perl -w
2
3use Config;
4
5if($^O =~ /vms/i) {
6    # $^X isn't VMS-friendly.  I'm disinclined to add a dependency on
7    # Probe::Perl just for testing this corner-case
8    print "1..0 # skip - can't reliably taint-test on VMS\n";
9# } elsif($ENV{PERL5LIB}) {
10#     print "1..0 # skip - can't reliably taint-test with PERL5LIB set\n";
11# } else {
12#     exec("$^X -Tw -Iblib/lib t/realtainttest");
13# }
14} else {
15    my $perl5lib = $ENV{PERL5LIB} || '';
16    $ENV{PERL5LIB} = '';
17    exec(
18        join(' ',
19            $^X,
20            '-Tw',
21            (
22		# map { "-I$_" }
23                map { qq{-I"$_"} }
24                grep { -d $_ } # bleh, code-refs getting stringified
25                split(/$Config{path_sep}/, $perl5lib)
26            ),
27            't/realtainttest'
28        )
29    );
30}
31