equal
deleted
inserted
replaced
166 for my $line (@lines) |
166 for my $line (@lines) |
167 { |
167 { |
168 my $package = ''; |
168 my $package = ''; |
169 my $guessed_bldinf = ''; |
169 my $guessed_bldinf = ''; |
170 # if bldinf attribute is not available then heuristically attempt to determine the package |
170 # if bldinf attribute is not available then heuristically attempt to determine the package |
171 if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s) |
171 if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) |
172 { |
172 { |
173 $guessed_bldinf = "$1... (guessed)"; |
173 $guessed_bldinf = "$1... (guessed)"; |
174 } |
174 } |
175 |
175 |
176 if ($guessed_bldinf) |
176 if ($guessed_bldinf) |
180 # normalize bldinf path |
180 # normalize bldinf path |
181 $guessed_bldinf = lc($guessed_bldinf); |
181 $guessed_bldinf = lc($guessed_bldinf); |
182 $guessed_bldinf =~ s,^[A-Za-z]:,,; |
182 $guessed_bldinf =~ s,^[A-Za-z]:,,; |
183 $guessed_bldinf =~ s,[\\],/,g; |
183 $guessed_bldinf =~ s,[\\],/,g; |
184 |
184 |
185 if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[^/]*),) |
185 if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) |
186 { |
186 { |
187 $package = $1; |
187 $package = $1; |
188 $package =~ s,/,_,; |
188 $package =~ s,/,_,; |
189 } |
189 } |
190 } |
190 } |