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=22da1f06476bbb7dd98e1c784c90a58bcbbf8353 commit 22da1f06476bbb7dd98e1c784c90a58bcbbf8353 Author: Guillem Jover <[email protected]> AuthorDate: Wed Sep 21 04:15:17 2022 +0200 Dpkg::Vendor: Prefer loading lowercase vendor file first as documented The documentation mentions that a lowercase vendor file is preferred, so we should try that first, then the passed name, followed by the different casing variants, preferring also the capitalized lowercase variant over the capitalized preserving the reset of the passed casing. Reported-by: Niels Thykier <[email protected]> (on IRC) --- scripts/Dpkg/Vendor.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/Dpkg/Vendor.pm b/scripts/Dpkg/Vendor.pm index 8319f801b..7b008322e 100644 --- a/scripts/Dpkg/Vendor.pm +++ b/scripts/Dpkg/Vendor.pm @@ -115,9 +115,9 @@ name. sub get_vendor_file(;$) { my $vendor = shift || 'default'; - my @names = ($vendor, lc($vendor), ucfirst($vendor), ucfirst(lc($vendor))); + my @names = (lc $vendor, $vendor, ucfirst lc $vendor, ucfirst $vendor); if ($vendor =~ s/\s+/-/) { - push @names, $vendor, lc($vendor), ucfirst($vendor), ucfirst(lc($vendor)); + push @names, lc $vendor, $vendor, ucfirst lc $vendor, ucfirst $vendor; } foreach my $name (uniq @names) { next unless -e "$origins/$name"; -- Dpkg.Org's dpkg
