137 |
|
my $area=$relarea->satellite($installarea,$areaname); |
138 |
|
$area->archname($self->arch()); |
139 |
|
|
140 |
– |
# -- copy setup info - deprecated by toolbox copy method |
141 |
– |
#$relarea->copysetup($area->location()); |
142 |
– |
|
140 |
|
# -- copy toolbox |
141 |
|
my $rtb=$self->areatoolbox($relarea); |
142 |
|
my $tb=$self->areatoolbox($area); |
294 |
|
$ENV{SCRAM_HOME}=$self->{scram_top}."/".$version; |
295 |
|
$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src"; |
296 |
|
$self->verbose("Spawning SCRAM version $version"); |
297 |
+ |
|
298 |
|
my $rv=system("scram", @_)/256; |
299 |
|
exit $rv; |
300 |
|
} |