Fix to simplify the code and make it work in Perl below version 5.14

This commit is contained in:
Ilia Ross
2025-05-26 00:20:10 +03:00
parent 200b295da0
commit b56c8eb19b

View File

@@ -1035,7 +1035,10 @@ my @extra = ('cli', 'fpm');
foreach my $pkg (@$pkgs) {
if ($pkg->{'name'} =~ /-common$/) {
$pkg->{'name'} .= ' ' . join(' ',
map {(my $n = $pkg->{'name'}) =~ s/-common$/-$_/r } @extra);
map {
my $n = $pkg->{'name'};
$n =~ s/-common$/-$_/;
$n } @extra);
}
}
}