diff options
| author | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
| commit | 34a8597760ab5740abd49b6d8be10e1876f5ce98 (patch) | |
| tree | 099a794912a28b3ebbc857961643ba29b28e674a /Master/tlpkg/tlperl/lib/Test/Harness.pm | |
| parent | 2ca3610031316a7312d046d3ae4c783452831216 (diff) | |
(tl)perl 5.26.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@46882 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test/Harness.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Harness.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test/Harness.pm b/Master/tlpkg/tlperl/lib/Test/Harness.pm index fe9d3049f9f..3ec34931cee 100644 --- a/Master/tlpkg/tlperl/lib/Test/Harness.pm +++ b/Master/tlpkg/tlperl/lib/Test/Harness.pm @@ -31,11 +31,11 @@ Test::Harness - Run Perl standard test scripts with statistics =head1 VERSION -Version 3.36 +Version 3.38 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.38'; # Backwards compatibility for exportable variable names. *verbose = *Verbose; @@ -147,6 +147,7 @@ sub runtests { my $harness = _new_harness(); my $aggregate = TAP::Parser::Aggregator->new(); + local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC}; _aggregate( $harness, $aggregate, @tests ); $harness->formatter->summary($aggregate); @@ -354,6 +355,7 @@ sub execute_tests { } ); + local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC}; _aggregate( $harness, $aggregate, @{ $args{tests} } ); $tot{bench} = $aggregate->elapsed; |