mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 06:03:28 +00:00
Fix to simplify the code and make it work in Perl below version 5.14
This commit is contained in:
@@ -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);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user