equal
deleted
inserted
replaced
170 print "WARNING: recipe_failure with component field empty at $csv_file line $csv_linenum. Skipping\n"; |
170 print "WARNING: recipe_failure with component field empty at $csv_file line $csv_linenum. Skipping\n"; |
171 next; |
171 next; |
172 } |
172 } |
173 if ($failure->{component}) |
173 if ($failure->{component}) |
174 { |
174 { |
175 if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation)/[^/]*),) |
175 if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) |
176 { |
176 { |
177 $failure_package = $1; |
177 $failure_package = $1; |
178 } |
178 } |
179 else |
179 else |
180 { |
180 { |
485 $bldinf = lc($bldinf); |
485 $bldinf = lc($bldinf); |
486 $bldinf =~ s,^[A-Za-z]:,,; |
486 $bldinf =~ s,^[A-Za-z]:,,; |
487 $bldinf =~ s,[\\],/,g; |
487 $bldinf =~ s,[\\],/,g; |
488 |
488 |
489 my $package = ''; |
489 my $package = ''; |
490 if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[^/]*),) |
490 if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) |
491 { |
491 { |
492 $package = $1; |
492 $package = $1; |
493 } |
493 } |
494 else |
494 else |
495 { |
495 { |
497 } |
497 } |
498 |
498 |
499 $allpackages->{$package} = 1; |
499 $allpackages->{$package} = 1; |
500 } |
500 } |
501 |
501 |
502 return sort {$a cmp $b} keys %{$allpackages}; |
502 # sort packages, but set unknown first |
503 } |
503 my @sorted = (); |
|
504 if (defined $allpackages->{'unknown/unknown'}) |
|
505 { |
|
506 push @sorted, 'unknown/unknown'; |
|
507 undef $allpackages->{'unknown/unknown'}; |
|
508 } |
|
509 push @sorted, sort {$a cmp $b} keys %{$allpackages}; |
|
510 |
|
511 return @sorted; |
|
512 } |