add filter code for components

[wannabuild.git] / bin / wanna-build

diff --git a/bin/wanna-build b/bin/wanna-build
index d1fc48e167a988cba5adb5032bd1c9aff08bbadb..f6634a22583afa189ba9c8a8d100a1df6e6c8619 100755 (executable)
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -1912,6 +1912,9 @@ sub list_packages {
                push @list, calculate_prio($db->{$name});
        }
 
+        # filter components
+        @list = grep { my $i = $_->{'component'}; grep { $i eq $_ } split /[, ]+/, $yamlmap->{"restrict"}{'component'} } @list;
+
        foreach $pkg (sort sort_list_func @list) {
                 if ($printformat) {
                     print print_format($printformat, $pkg, {'cnt' => $cnt, 'scnt' => \%scnt})."\n";