Deal with existing extracted module.info files
This commit is contained in:
parent
293c7c8b8c
commit
490a2eea28
@ -18,7 +18,10 @@ foreach my $f (@files) {
|
||||
my %extract;
|
||||
foreach my $k (@keys) {
|
||||
if ($k =~ /^(desc|longdesc)_(\S+)/) {
|
||||
if (!$extract{$2}) {
|
||||
$extract{$2} ||= { };
|
||||
&read_file($f.".".$2, $extract{$2});
|
||||
}
|
||||
$extract{$2}->{$k} = $minfo{$k};
|
||||
delete($minfo{$k});
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user