| 34 |
|
|
| 35 |
|
# -- set up a report |
| 36 |
|
my $report=BuildSystem::BuildReport->new(); |
| 37 |
– |
$report->status(1); # set to fail |
| 37 |
|
|
| 38 |
|
# -- interface with old system |
| 39 |
|
my $fulldir=$self->{area}->location()."/".$dir; |
| 40 |
|
if ( ! -d $fulldir ) { |
| 41 |
|
$report->error("$fulldir does not exist"); |
| 42 |
+ |
$report->status(1); # set to fail |
| 43 |
|
} |
| 44 |
|
else { |
| 45 |
|
chdir $fulldir; |
| 46 |
< |
my $bs=BuildSystem::BuildSetup->new($self->{area}); |
| 47 |
< |
$bs->verbosity(1); |
| 46 |
> |
# -- initialise BuildSystem if we dont already have it |
| 47 |
> |
if ( ! defined $self->{bs} ) { |
| 48 |
> |
$self->{bs}=BuildSystem::BuildSetup->new($self->{area}); |
| 49 |
> |
$self->{bs}->verbosity(1); |
| 50 |
> |
} |
| 51 |
|
$self->verbose("Calling build module with $dir, @_"); |
| 52 |
< |
$rv=$bs->BuildSetup($dir,@_); |
| 52 |
> |
my $rv=$self->{bs}->BuildDir($dir,@_); |
| 53 |
|
$report->status($rv); |
| 54 |
|
} |
| 55 |
|
return $report; |
