equal
deleted
inserted
replaced
191 #print "error: -->$characters<--\n"; |
191 #print "error: -->$characters<--\n"; |
192 |
192 |
193 my $package = ''; |
193 my $package = ''; |
194 # if bldinf attribute is not available then heuristically attempt to determine the package |
194 # if bldinf attribute is not available then heuristically attempt to determine the package |
195 if (!$raptor_error_info->{bldinf} && |
195 if (!$raptor_error_info->{bldinf} && |
196 $characters =~ m,.*?([/\\]sf|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) |
196 $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) |
197 { |
197 { |
198 $raptor_error_info->{bldinf} = "$1... (guessed)"; |
198 $raptor_error_info->{bldinf} = "$1... (guessed)"; |
199 } |
199 } |
200 |
200 |
201 if ($raptor_error_info->{bldinf}) |
201 if ($raptor_error_info->{bldinf}) |
205 # normalize bldinf path |
205 # normalize bldinf path |
206 $raptor_error_info->{bldinf} = lc($raptor_error_info->{bldinf}); |
206 $raptor_error_info->{bldinf} = lc($raptor_error_info->{bldinf}); |
207 $raptor_error_info->{bldinf} =~ s,^[A-Za-z]:,,; |
207 $raptor_error_info->{bldinf} =~ s,^[A-Za-z]:,,; |
208 $raptor_error_info->{bldinf} =~ s,[\\],/,g; |
208 $raptor_error_info->{bldinf} =~ s,[\\],/,g; |
209 |
209 |
210 if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) |
210 if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) |
211 { |
211 { |
212 $package = $1; |
212 $package = $1; |
213 $package =~ s,/,_,; |
213 $package =~ s,/,_,; |
214 } |
214 } |
215 else |
215 else |