Fix to simplify extending names

https://github.com/webmin/webmin/pull/2483#discussion_r2106361464
This commit is contained in:
Ilia Ross
2025-05-26 12:52:47 +03:00
parent 92dc310ce0
commit 425ca01c5a

View File

@ -1045,13 +1045,8 @@ my @extra = ('cli', 'fpm');
foreach my $pkg (@{$pkgs}) {
my $p = { 'name' => $pkg->{'name'},
'ver' => $pkg->{'shortver'} };
if ($p->{'name'} =~ /-common$/) {
$p->{'name'} .= ' ' . join(' ',
map {
my $n = $p->{'name'};
$n =~ s/-common$/-$_/;
$n } @extra);
}
$p->{'name'} .= ' '.join(' ', map { "$1-$_" } @extra)
if ($p->{'name'} =~ /^(.*)-common$/);
push(@pkgs, $p);
}
return @pkgs;