From 12679ab7d3c2a210f4123163671b532b8b55d5f9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 15 Mar 2024 03:06:35 +0000 Subject: CTAN sync 202403150306 --- systems/texlive/tlnet/tlpkg/tlperl/lib/App/Prove.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/App/Prove.pm') diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/App/Prove.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/App/Prove.pm index a33fe971ff..e2785cbee7 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/App/Prove.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/App/Prove.pm @@ -18,11 +18,11 @@ App::Prove - Implements the C 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(); -- cgit v1.2.3