equal
deleted
inserted
replaced
173 for my $line (@lines) |
173 for my $line (@lines) |
174 { |
174 { |
175 my $package = ''; |
175 my $package = ''; |
176 my $guessed_bldinf = ''; |
176 my $guessed_bldinf = ''; |
177 # if bldinf attribute is not available then heuristically attempt to determine the package |
177 # if bldinf attribute is not available then heuristically attempt to determine the package |
178 if ($line =~ m,.*?(([/\\]sf)?[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s) |
178 if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s) |
179 { |
179 { |
180 $guessed_bldinf = "$1... (guessed)"; |
180 $guessed_bldinf = "$1... (guessed)"; |
181 } |
181 } |
182 |
182 |
183 if ($guessed_bldinf) |
183 if ($guessed_bldinf) |