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|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) |
172 if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][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) |
181 # normalize bldinf path |
181 # normalize bldinf path |
182 $guessed_bldinf = lc($guessed_bldinf); |
182 $guessed_bldinf = lc($guessed_bldinf); |
183 $guessed_bldinf =~ s,^[A-Za-z]:,,; |
183 $guessed_bldinf =~ s,^[A-Za-z]:,,; |
184 $guessed_bldinf =~ s,[\\],/,g; |
184 $guessed_bldinf =~ s,[\\],/,g; |
185 |
185 |
186 if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) |
186 if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) |
187 { |
187 { |
188 $package = $1; |
188 $package = $1; |
189 $package =~ s,/,_,; |
189 $package =~ s,/,_,; |
190 } |
190 } |
191 } |
191 } |