This is an automated email from the git hooks/post-receive script. guillem pushed a commit to branch main in repository dpkg.
View the commit online: https://git.dpkg.org/cgit/dpkg/dpkg.git/commit/?id=8b367962397e2b78b8238451c49d71ad3fad8e05 commit 8b367962397e2b78b8238451c49d71ad3fad8e05 Author: Guillem Jover <[email protected]> AuthorDate: Sat Sep 13 17:44:54 2025 +0200 dselect: Use foreach instead of map in void context in method script Changelog: internal Warned-by: perlcritic Fixes: BuiltinFunctions::ProhibitVoidMap --- dselect/methods/media/install.sh | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/dselect/methods/media/install.sh b/dselect/methods/media/install.sh index 6c2a693a1..96ce335c8 100755 --- a/dselect/methods/media/install.sh +++ b/dselect/methods/media/install.sh @@ -196,7 +196,10 @@ perl -MDpkg::Version -MDselect::Method::Media -e ' "", split /^(\S*?):\s*/m, ); - map { chomp $status{$_}; $status{$_} =~ s/^\s*(.*?)\s*$/$1/;} keys %status; + foreach my $field (keys %status) { + chomp $status{$_}; + $status{$_} =~ s/^\s*(.*?)\s*$/$1/; + } my @pstat = split(/ /, $status{Status}); next unless ($pstat[0] eq "install"); if ($pstat[2] eq "config-files" || $pstat[2] eq "not-installed") { @@ -222,7 +225,10 @@ perl -MDpkg::Version -MDselect::Method::Media -e ' "", split /^(\S*?):\s*/m, ); - map { chomp $avail{$_}; $avail{$_} =~ s/^\s*(.*?)\s*$/$1/;} keys %avail; + foreach my $field (keys %avail) { + chomp $avail{$_}; + $avail{$_} =~ s/^\s*(.*?)\s*$/$1/; + } next unless defined $Installed{$avail{Package}}; -- Dpkg.Org's dpkg
