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