equal
deleted
inserted
replaced
200 |
200 |
201 if ($raptor_error_info->{bldinf}) |
201 if ($raptor_error_info->{bldinf}) |
202 { |
202 { |
203 $::allbldinfs->{$raptor_error_info->{bldinf}} = 1; |
203 $::allbldinfs->{$raptor_error_info->{bldinf}} = 1; |
204 |
204 |
205 # normalize bldinf path |
205 RaptorCommon::normalize_bldinf_path(\$raptor_error_info->{bldinf}); |
206 $raptor_error_info->{bldinf} = lc($raptor_error_info->{bldinf}); |
206 |
207 $raptor_error_info->{bldinf} =~ s,^[A-Za-z]:,,; |
207 $package = RaptorCommon::get_package_subpath($raptor_error_info->{bldinf}); |
208 $raptor_error_info->{bldinf} =~ s,[\\],/,g; |
208 $package =~ s,/,_,g; |
209 |
209 if (!$package) |
210 if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) |
|
211 { |
|
212 $package = $1; |
|
213 $package =~ s,/,_,; |
|
214 } |
|
215 else |
|
216 { |
210 { |
217 print "WARNING: can't understand bldinf attribute of raptor error: $raptor_error_info->{bldinf}. Won't associate to package.\n"; |
211 print "WARNING: can't understand bldinf attribute of raptor error: $raptor_error_info->{bldinf}. Won't associate to package.\n"; |
218 } |
212 } |
219 } |
213 } |
220 |
214 |