# | Line 86 | Line 86 | sub setuptoolsinarea | |
---|---|---|
86 | { | |
87 | my $self=shift; | |
88 | my $area=shift; | |
89 | < | |
89 | > | |
90 | # -- initialise | |
91 | print "Initialising setup procedure......","\n"; | |
92 | $self->_allprojectinitsearcher(); | |
# | Line 301 | Line 301 | sub spawnversion | |
301 | $ENV{SCRAM_HOME}=$self->{scram_top}."/".$version; | |
302 | $ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src"; | |
303 | $self->verbose("Spawning SCRAM version $version"); | |
304 | – | |
304 | my $rv=system("scram", @_)/256; | |
305 | exit $rv; | |
306 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |