diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2014-12-10 13:34:52 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2014-12-10 13:34:52 +0000 |
commit | 8fddd4400d09891094843fe9e77fec74e4510c67 (patch) | |
tree | 23dbb27d11e56cf6586d93b091c708fa111a7a2d /t/taint.t | |
download | Data-Compare-tarball-8fddd4400d09891094843fe9e77fec74e4510c67.tar.gz |
Data-Compare-1.25HEADData-Compare-1.25master
Diffstat (limited to 't/taint.t')
-rw-r--r-- | t/taint.t | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/t/taint.t b/t/taint.t new file mode 100644 index 0000000..5a7a990 --- /dev/null +++ b/t/taint.t @@ -0,0 +1,30 @@ +#!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($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' + ) + ); +} |