equal
deleted
inserted
replaced
266 } |
266 } |
267 |
267 |
268 if ($recipe_info->{exit} =~ /failed/i || $recipe_info->{exit} =~ /retry/i && $recipe_info->{forcesuccess} =~ /FORCESUCCESS/i) |
268 if ($recipe_info->{exit} =~ /failed/i || $recipe_info->{exit} =~ /retry/i && $recipe_info->{forcesuccess} =~ /FORCESUCCESS/i) |
269 { |
269 { |
270 #print "2 normalizing bldinf: $recipe_info->{bldinf} \n"; |
270 #print "2 normalizing bldinf: $recipe_info->{bldinf} \n"; |
271 # normalize bldinf path |
271 RaptorCommon::normalize_bldinf_path(\$recipe_info->{bldinf}); |
272 $recipe_info->{bldinf} = lc($recipe_info->{bldinf}); |
|
273 $recipe_info->{bldinf} =~ s,^[A-Za-z]:,,; |
|
274 $recipe_info->{bldinf} =~ s,[\\],/,g; |
|
275 |
272 |
276 my $package = ''; |
273 my $package = ''; |
277 if ($recipe_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) |
274 $package = RaptorCommon::get_package_subpath($recipe_info->{bldinf}); |
278 { |
275 $package =~ s,/,_,g; |
279 $package = $1; |
276 if (!$package) |
280 $package =~ s,/,_,; |
|
281 } |
|
282 else |
|
283 { |
277 { |
284 #print "WARNING: can't understand bldinf attribute of recipe: $recipe_info->{bldinf}. Won't dump to failed recipes file.\n"; |
278 #print "WARNING: can't understand bldinf attribute of recipe: $recipe_info->{bldinf}. Won't dump to failed recipes file.\n"; |
285 $package = 'unknown_unknown'; |
279 $package = 'unknown_unknown'; |
286 } |
280 } |
287 |
281 |