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