equal
deleted
inserted
replaced
172 print "WARNING: recipe_failure with component field empty at $csv_file line $csv_linenum. Skipping\n"; |
172 print "WARNING: recipe_failure with component field empty at $csv_file line $csv_linenum. Skipping\n"; |
173 next; |
173 next; |
174 } |
174 } |
175 if ($failure->{component}) |
175 if ($failure->{component}) |
176 { |
176 { |
177 if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation|unknown|dev)/[a-zA-Z]+),) |
177 if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) |
178 { |
178 { |
179 $failure_package = $1; |
179 $failure_package = $1; |
180 } |
180 } |
181 else |
181 else |
182 { |
182 { |
500 $bldinf = lc($bldinf); |
500 $bldinf = lc($bldinf); |
501 $bldinf =~ s,^[A-Za-z]:,,; |
501 $bldinf =~ s,^[A-Za-z]:,,; |
502 $bldinf =~ s,[\\],/,g; |
502 $bldinf =~ s,[\\],/,g; |
503 |
503 |
504 my $package = ''; |
504 my $package = ''; |
505 if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|unknown|dev)/[a-zA-Z]+),) |
505 if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) |
506 { |
506 { |
507 $package = $1; |
507 $package = $1; |
508 } |
508 } |
509 else |
509 else |
510 { |
510 { |