diff options
| author |   afresh1 <afresh1@openbsd.org> | 2017-02-05 00:31:51 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2017-02-05 00:31:51 +0000 |
| commit | b8851fcc53cbe24fd20b090f26dd149e353f6174 (patch) | |
| tree | 4b7c1695865f00ab7a0da30b5632d514848ea3a2 /gnu/usr.bin/perl/cpan/Module-Metadata/t/taint.t | |
| parent | Add option PCIVERBOSE. (diff) | |
| download | wireguard-openbsd-b8851fcc53cbe24fd20b090f26dd149e353f6174.tar.xz wireguard-openbsd-b8851fcc53cbe24fd20b090f26dd149e353f6174.zip | |
Fix merge issues, remove excess files - match perl-5.24.1 dist
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Module-Metadata/t/taint.t')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Module-Metadata/t/taint.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/cpan/Module-Metadata/t/taint.t b/gnu/usr.bin/perl/cpan/Module-Metadata/t/taint.t index ef527de50d1..18f0300742a 100644 --- a/gnu/usr.bin/perl/cpan/Module-Metadata/t/taint.t +++ b/gnu/usr.bin/perl/cpan/Module-Metadata/t/taint.t @@ -2,8 +2,9 @@ use strict; use warnings; -use 5.008000; # for ${^TAINT} -use Test::More tests => 2; +use Config; +use Test::More $Config{ccflags} =~ /-DSILENT_NO_TAINT_SUPPORT/ + ? ( skip_all => 'No taint support' ) : ( tests => 2 ); use Module::Metadata; use Carp 'croak'; @@ -17,7 +18,8 @@ sub exception(&) { return $@; } -ok(${^TAINT}, 'taint flag is set'); +my $taint_on = ! eval { no warnings; join('',values %ENV), kill 0; 1; }; +ok($taint_on, 'taint flag is set'); # without the fix, we get: # Insecure dependency in eval while running with -T switch at lib/Module/Metadata.pm line 668, <GEN0> line 15. |