From 1d0136f3738977c8c827aa79e302d42092ec95b3 Mon Sep 17 00:00:00 2001 From: Andreas Barth Date: Sat, 6 Aug 2011 13:23:24 +0000 Subject: [PATCH] filter out noautobuild: use proper perl --- bin/wanna-build | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/bin/wanna-build b/bin/wanna-build index 1abf5df..78e80ba 100755 --- a/bin/wanna-build +++ b/bin/wanna-build @@ -1187,10 +1187,8 @@ sub list_packages { @list = grep { !$_->{'extra_depends'} and !$_->{'extra_conflicts'} } @list if $api < 1 ; # filter out packages for needs-build in noautobuild state - same could exist for weaknoautobuild if buildds would tell us what they do if (($state eq 'needs-build') && ($yamlmap->{"restrict"}) && ($yamlmap->{"restrict"}{"noautobuild"})) { - foreach my $key (@{$yamlmap->{"restrict"}{"noautobuild"}}) { - foreach my $k (keys %$key) { - @list = grep { $_->{'package'} ne $k } @list; - } + foreach my $key (map {keys %$_} @{$yamlmap->{"restrict"}{"noautobuild"}}) { + @list = grep { $_->{'package'} ne $key } @list; } } -- 2.39.2