1berry/webmin
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Deal with existing extracted module.info files

Browse Source
This commit is contained in:
Jamie Cameron 2018-02-18 17:22:31 -08:00
parent 293c7c8b8c
commit 490a2eea28
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extract-module-info-langs.pl
View File

@ -18,7 +18,10 @@ foreach my $f (@files) {
my %extract; my %extract;
foreach my $k (@keys) { foreach my $k (@keys) {
if ($k =~ /^(desc|longdesc)_(\S+)/) { if ($k =~ /^(desc|longdesc)_(\S+)/) {
$extract{$2} ||= { }; if (!$extract{$2}) {
$extract{$2} ||= { };
&read_file($f.".".$2, $extract{$2});
}
$extract{$2}->{$k} = $minfo{$k}; $extract{$2}->{$k} = $minfo{$k};
delete($minfo{$k}); delete($minfo{$k});
} }