equal
deleted
inserted
replaced
167 for my $line (@lines) |
167 for my $line (@lines) |
168 { |
168 { |
169 my $package = ''; |
169 my $package = ''; |
170 my $guessed_bldinf = ''; |
170 my $guessed_bldinf = ''; |
171 # if bldinf attribute is not available then heuristically attempt to determine the package |
171 # if bldinf attribute is not available then heuristically attempt to determine the package |
172 if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) |
172 if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation|adapt)[/\\][a-zA-Z]+[/\\]?),s) |
173 { |
173 { |
174 $guessed_bldinf = "$1... (guessed)"; |
174 $guessed_bldinf = "$1... (guessed)"; |
175 } |
175 } |
176 |
176 |
177 if ($guessed_bldinf) |
177 if ($guessed_bldinf) |