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=7923fb945173f06cce260ad5cc55161534961c7c commit 7923fb945173f06cce260ad5cc55161534961c7c Author: Guillem Jover <[email protected]> AuthorDate: Sun Oct 2 18:30:32 2022 +0200 Dpkg::Vendor: Prefer loading capitalized vendor modules This gets us closer to the current perl module naming convention in the project (and in perl in general). --- scripts/Dpkg/Vendor.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scripts/Dpkg/Vendor.pm b/scripts/Dpkg/Vendor.pm index 7b008322e..4bcba9b51 100644 --- a/scripts/Dpkg/Vendor.pm +++ b/scripts/Dpkg/Vendor.pm @@ -152,6 +152,9 @@ If $name is omitted, return the object of the current vendor. If no vendor can be identified, then return the Dpkg::Vendor::Default object. +The module name will be derived from the vendor name, by capitalizing, +lower-casing then capitalizing, as-is or lower-casing. + =cut sub get_vendor_object { @@ -160,7 +163,7 @@ sub get_vendor_object { return $OBJECT_CACHE{$vendor} if exists $OBJECT_CACHE{$vendor}; my ($obj, @names); - push @names, $vendor, lc($vendor), ucfirst($vendor), ucfirst(lc($vendor)); + push @names, ucfirst $vendor, ucfirst lc $vendor, $vendor, lc $vendor; foreach my $name (uniq @names) { eval qq{ -- Dpkg.Org's dpkg
