Deal with existing extracted module.info files

This commit is contained in:
Jamie Cameron 2018-02-18 17:22:31 -08:00
parent 293c7c8b8c
commit 490a2eea28

View File

@ -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});
}