diff options
| author | Leon Timmermans <fawaka@gmail.com> | 2022-04-17 18:06:22 +0200 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2022-04-18 08:12:22 -0400 |
| commit | 34b62aa65c7a985078cbf79c36e529a89db91c3c (patch) | |
| tree | 6a72f86d3894715fb2ae13d7d75930dbe2b53b05 /cpan/Test-Harness/lib/App | |
| parent | f00af02bfcdd78a1a7b4c35d19458cf10389ac23 (diff) | |
| download | perl-34b62aa65c7a985078cbf79c36e529a89db91c3c.tar.gz | |
Update Test::Harness to 3.44
Diffstat (limited to 'cpan/Test-Harness/lib/App')
| -rw-r--r-- | cpan/Test-Harness/lib/App/Prove.pm | 8 | ||||
| -rw-r--r-- | cpan/Test-Harness/lib/App/Prove/State.pm | 4 | ||||
| -rw-r--r-- | cpan/Test-Harness/lib/App/Prove/State/Result.pm | 4 | ||||
| -rw-r--r-- | cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm | 4 |
4 files changed, 10 insertions, 10 deletions
diff --git a/cpan/Test-Harness/lib/App/Prove.pm b/cpan/Test-Harness/lib/App/Prove.pm index a33fe971ff..e2785cbee7 100644 --- a/cpan/Test-Harness/lib/App/Prove.pm +++ b/cpan/Test-Harness/lib/App/Prove.pm @@ -18,11 +18,11 @@ App::Prove - Implements the C<prove> command. =head1 VERSION -Version 3.43 +Version 3.44 =cut -our $VERSION = '3.43'; +our $VERSION = '3.44'; =head1 DESCRIPTION @@ -344,13 +344,13 @@ sub _get_args { # Handle verbose, quiet, really_quiet flags my %verb_map = ( verbose => 1, quiet => -1, really_quiet => -2, ); - my @verb_adj = grep {$_} map { $self->$_() ? $verb_map{$_} : 0 } + my @verb_adj = map { $self->$_() ? $verb_map{$_} : () } keys %verb_map; die "Only one of verbose, quiet or really_quiet should be specified\n" if @verb_adj > 1; - $args{verbosity} = shift @verb_adj || 0; + $args{verbosity} = shift @verb_adj if @verb_adj; for my $a (qw( merge failures comments timer directives normalize )) { $args{$a} = 1 if $self->$a(); diff --git a/cpan/Test-Harness/lib/App/Prove/State.pm b/cpan/Test-Harness/lib/App/Prove/State.pm index 006d4f8712..f3f1125e6f 100644 --- a/cpan/Test-Harness/lib/App/Prove/State.pm +++ b/cpan/Test-Harness/lib/App/Prove/State.pm @@ -25,11 +25,11 @@ App::Prove::State - State storage for the C<prove> command. =head1 VERSION -Version 3.43 +Version 3.44 =cut -our $VERSION = '3.43'; +our $VERSION = '3.44'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/App/Prove/State/Result.pm b/cpan/Test-Harness/lib/App/Prove/State/Result.pm index fb5e2d52d2..72b625ff9a 100644 --- a/cpan/Test-Harness/lib/App/Prove/State/Result.pm +++ b/cpan/Test-Harness/lib/App/Prove/State/Result.pm @@ -14,11 +14,11 @@ App::Prove::State::Result - Individual test suite results. =head1 VERSION -Version 3.43 +Version 3.44 =cut -our $VERSION = '3.43'; +our $VERSION = '3.44'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm b/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm index f4cddace38..a45911e461 100644 --- a/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm +++ b/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm @@ -9,11 +9,11 @@ App::Prove::State::Result::Test - Individual test results. =head1 VERSION -Version 3.43 +Version 3.44 =cut -our $VERSION = '3.43'; +our $VERSION = '3.44'; =head1 DESCRIPTION |