use Dpkg::Vendor::Debian and Dpkg::Vendor::Ubuntu for keyring locations, if they are available

mmdebstrap

@@ -3285,6 +3285,14 @@ sub main() {
             my $signedby = '';
             {
                 # try to guess the right keyring path for the given suite
+                my $debianvendor;
+                my $ubuntuvendor;
+                eval {
+                    require Dpkg::Vendor::Debian;
+                    require Dpkg::Vendor::Ubuntu;
+                    $debianvendor = Dpkg::Vendor::Debian->new();
+                    $ubuntuvendor = Dpkg::Vendor::Ubuntu->new();
+                };
                 my $keyring;
                 if (
                     any { $_ eq $suite } (
@@ -3292,8 +3300,14 @@ sub main() {
                         'lenny',  'squeeze', 'wheezy'
                     )
                 ) {
-                    $keyring
-                      = '/usr/share/keyrings/debian-archive-removed-keys.gpg';
+                    if (defined $debianvendor) {
+                        $keyring = $debianvendor->run_hook(
+                            'archive-keyrings-historic');
+                    } else {
+                        $keyring
+                          = '/usr/share/keyrings/'
+                          . 'debian-archive-removed-keys.gpg';
+                    }
                 } elsif (
                     any { $_ eq $suite }
                     ('aequorea', 'bartholomea', 'chromodoris', 'dasyatis')
@@ -3311,16 +3325,26 @@ sub main() {
                         'cosmic'
                     )
                 ) {
-                    $keyring
-                      = '/usr/share/keyrings/ubuntu-archive-keyring.gpg';
+                    if (defined $ubuntuvendor) {
+                        $keyring = $ubuntuvendor->run_hook('archive-keyrings');
+                    } else {
+                        $keyring
+                          = '/usr/share/keyrings/'
+                          . 'ubuntu-archive-keyring.gpg';
+                    }
                 } elsif (
                     any { $_ eq $suite } (
                         'unstable', 'stable', 'oldstable', 'jessie',
                         'stretch',  'buster', 'bullseye',  'bookworm'
                     )
                 ) {
-                    $keyring
-                      = '/usr/share/keyrings/debian-archive-keyring.gpg';
+                    if (defined $debianvendor) {
+                        $keyring = $debianvendor->run_hook('archive-keyrings');
+                    } else {
+                        $keyring
+                          = '/usr/share/keyrings/'
+                          . 'debian-archive-keyring.gpg';
+                    }
                 } else {
                     last;
                 }