NoBuild actually requires one piece out of Build...

This commit is contained in:
espie 2013-10-06 13:48:27 +00:00
parent b46cee4c56
commit 40185ee800
2 changed files with 13 additions and 10 deletions

View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: SubEngine.pm,v 1.9 2013/10/06 13:33:35 espie Exp $
# $OpenBSD: SubEngine.pm,v 1.10 2013/10/06 13:48:27 espie Exp $
#
# Copyright (c) 2010-2013 Marc Espie <espie@openbsd.org>
#
@ -216,11 +216,20 @@ sub dump
# $self->{queue}->dump($k, $fh);
}
package DPB::SubEngine::BuildBase;
our @ISA = qw(DPB::SubEngine);
sub new_queue
{
my ($class, $engine) = @_;
return $engine->{heuristics}->new_queue;
}
# for fetch-only, we do the same as Build, except we're never happy
package DPB::SubEngine::NoBuild;
our @ISA = qw(DPB::SubEngine::Build);
our @ISA = qw(DPB::SubEngine::BuildBase);
sub is_done
{
return 0;

View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Build.pm,v 1.2 2013/10/06 13:33:39 espie Exp $
# $OpenBSD: Build.pm,v 1.3 2013/10/06 13:48:28 espie Exp $
#
# Copyright (c) 2010-2013 Marc Espie <espie@openbsd.org>
#
@ -19,7 +19,7 @@ use strict;
use warnings;
package DPB::SubEngine::Build;
our @ISA = qw(DPB::SubEngine);
our @ISA = qw(DPB::SubEngine::BuildBase);
sub new
{
my ($class, $engine, $builder) = @_;
@ -175,12 +175,6 @@ sub non_empty
return $self->SUPER::non_empty || @{$self->{toinstall}} > 0;
}
sub new_queue
{
my ($class, $engine) = @_;
return $engine->{heuristics}->new_queue;
}
sub mark_as_done
{
my ($self, $v) = @_;