Kaydet (Commit) 76d2d78a authored tarafından David Tardon's avatar David Tardon

fdo#85633 filter out empty file records

Change-Id: I9f96cf3e059d444c52ce81b37cf5f69157c2888d
üst 7f5672bb
......@@ -187,6 +187,11 @@ sub collect_definitions
if ( $oneitem eq "Directory" ) { if ( $itemkey =~ "DosName" ) { $itemkey =~ s/DosName/HostName/; } }
if (( $oneitem eq "Directory" ) || ( $oneitem eq "File" ) || ( $oneitem eq "Unixlink" )) { if ( $itemvalue eq "PD_PROGDIR" ) { $itemvalue = "PREDEFINED_PROGDIR"; }}
if (( $itemkey eq "Styles" ) && ( $itemvalue =~ /^\s*(\w+)(\s*\;\s*)$/ )) { $itemvalue = "($1)$2"; }
elsif ( $itemkey eq "Files" ) # filter out empty file records, as they mess up assignment to modules
{
$itemvalue =~ /^\(([^)]*)\)$/;
$itemvalue = '(' . join( ',', grep( !/^$/, split( ',', $1 ) ) ) . ')';
}
$oneitemhash{$itemkey} = $itemvalue;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment