13 |
|
|
14 |
|
package BuildSystem::Build; |
15 |
|
use BuildSystem::BuildReport; |
16 |
+ |
use BuildSystem::BuildSetup; |
17 |
|
use Utilities::Verbose; |
18 |
|
require 5.004; |
19 |
|
@ISA=qw(Utilities::Verbose); |
25 |
|
$self->{area}=shift; |
26 |
|
$self->{area}->copyenv(\%ENV); |
27 |
|
$ENV{LOCALTOP}=$self->{area}->location(); |
28 |
+ |
|
29 |
+ |
# -- set RELEASTOP |
30 |
+ |
my $rarea=$self->{area}->linkarea(); |
31 |
+ |
if ( ! defined $rarea ) { |
32 |
+ |
$ENV{RELEASETOP}=$ENV{LOCALTOP}; |
33 |
+ |
} |
34 |
+ |
else { |
35 |
+ |
$ENV{RELEASETOP}=$rarea->location(); |
36 |
+ |
} |
37 |
+ |
|
38 |
|
$self->verbose("LOCALTOP=".$ENV{LOCALTOP}); |
39 |
+ |
$self->verbose("RELEASETOP=".$ENV{RELEASETOP}); |
40 |
|
return $self; |
41 |
|
} |
42 |
|
|