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=253cf2989712132484f72bd97a07d7795211fc44 commit 253cf2989712132484f72bd97a07d7795211fc44 Author: Guillem Jover <[email protected]> AuthorDate: Sat Sep 13 04:49:04 2025 +0200 dselect: Use {} for regex substitution operators in method scripts Changelog: internal Warned-by: perlcritic Fixes: RegularExpressions::ProhibitUnusualDelimiters --- dselect/methods/file/install.sh | 5 +++-- dselect/methods/media/install.sh | 3 ++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/dselect/methods/file/install.sh b/dselect/methods/file/install.sh index 86d93f79c..d96b56e36 100755 --- a/dselect/methods/file/install.sh +++ b/dselect/methods/file/install.sh @@ -41,7 +41,7 @@ while true; do perl -e ' my $predep = $ARGV[0]; my $binaryprefix = $ARGV[1]; - $binaryprefix =~ s,/*$,/, if length($binaryprefix); + $binaryprefix =~ s{/*$}{/} if length($binaryprefix); my $package; my $version; @@ -71,7 +71,8 @@ while true; do $print = $filename[$i]; $invoke = "$binaryprefix$filename[$i]"; } else { - $base = $filename[$i]; $base =~ s,.*/,,; + $base = $filename[$i]; + $base =~ s{.*/}{}; my $c = open my $find_fh, "-|"; if (not defined $c) { die "failed to fork for find: $!\n"; diff --git a/dselect/methods/media/install.sh b/dselect/methods/media/install.sh index 7d705eea1..68fdcc471 100755 --- a/dselect/methods/media/install.sh +++ b/dselect/methods/media/install.sh @@ -125,7 +125,8 @@ INFO $print = $filename[$i]; $invoke = "$binaryprefix$filename[$i]"; } else { - $base = $filename[$i]; $base =~ s,.*/,,; + $base = $filename[$i]; + $base =~ s{.*/}{}; my $c = open my $find_fh, "-|"; if (not defined $c) { die "failed to fork for find: $!\n"; -- Dpkg.Org's dpkg
