}
$state = $pkg->{'state'};
+ if ($state eq "Needs-Build")
+ {
+ print "$name: Already in Needs-Build.\n";
+ return;
+ }
+
if ($state eq "BD-Uninstallable") {
if ($opt_override) {
print "$name: Forcing uninstallability mark to be removed. This is not permanent and might be reset with the next trigger run\n";
}
}
if (defined ($pkg->{'builder'}) && $user ne $pkg->{'builder'} &&
- !($pkg->{'builder'} =~ /^(\w+)-\w+/ && $1 eq $user)) {
+ !($pkg->{'builder'} =~ /^(\w+)-\w+/ && $1 eq $user) &&
+ !$opt_override) {
print "$name: not taken by you, but by ".
"$pkg->{'builder'}. Skipping.\n";
return;
Usage: $prgname <options...> <package_version...>
Options:
-v, --verbose: Verbose execution.
+ -A arch: Architecture this operation is for.
--take: Take package for building [default operation]
-f, --failed: Record in database that a build failed due to
deficiencies in the package (that aren't fixable without a new
sub get_source_info {
my $name = shift;
my $pkg = $dbh->selectrow_hashref('SELECT * FROM ' .
- table_name() . ' WHERE package = ? AND distribution = ?',
+ table_name() . ' WHERE package = ? AND distribution = ?' .
+ 'FOR UPDATE',
undef, $name, $distribution);
return $pkg;
}