Restore old findBuildDependencyInQueue behaviour

This commit is contained in:
Eelco Dolstra 2013-10-03 13:08:32 +02:00
parent b1a26e6caa
commit b1f7096935

View file

@ -48,7 +48,6 @@ sub unlockDeadBuilds {
# depends; or undef if no such build exists. # depends; or undef if no such build exists.
sub findBuildDependencyInQueue { sub findBuildDependencyInQueue {
my ($buildsByDrv, $build) = @_; my ($buildsByDrv, $build) = @_;
return undef; # FIXME
return undef unless isValidPath($build->drvpath); return undef unless isValidPath($build->drvpath);
my @deps = grep { /\.drv$/ && $_ ne $build->drvpath } computeFSClosure(0, 0, $build->drvpath); my @deps = grep { /\.drv$/ && $_ ne $build->drvpath } computeFSClosure(0, 0, $build->drvpath);
return unless scalar @deps > 0; return unless scalar @deps > 0;