diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-10-27 22:16:37 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-27 22:16:37 -0700 |
| commit | 3bd1fdf5c4ae13b61098b2bfcaacef9ed2e59acc (patch) | |
| tree | c232a15c6c6ec1bdf83b9785b8fe5bc85fbe444c /dist | |
| parent | 1e35da33912176c88bd8820fa37a895049cf214c (diff) | |
| download | perl-3bd1fdf5c4ae13b61098b2bfcaacef9ed2e59acc.tar.gz | |
Run 01SelfLoader.t also under taint mode
This is to test for [perl #72062].
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/SelfLoader/t/03taint.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/dist/SelfLoader/t/03taint.t b/dist/SelfLoader/t/03taint.t new file mode 100644 index 0000000000..528d9b8805 --- /dev/null +++ b/dist/SelfLoader/t/03taint.t @@ -0,0 +1,7 @@ +#!perl -T + +# This runs 01SelfLoader.t under taint. + +my $file = __FILE__ =~ s/[\w.]+\z/01SelfLoader.t/r; +unshift @INC, "."; +do $file or die "Cannot run $file: ", $@||$!; |