438 |
|
{ |
439 |
|
$tooldataobj->scram_project($self->{content}->{SCRAM_PROJECT}); |
440 |
|
} |
441 |
+ |
|
442 |
+ |
# And check to see if this tool is a compiler. If so, set |
443 |
+ |
# the SCRAM_COMPILER variable in the ToolData object: |
444 |
+ |
if (exists ($self->{content}->{SCRAM_COMPILER})) |
445 |
+ |
{ |
446 |
+ |
$tooldataobj->scram_compiler($self->{content}->{SCRAM_COMPILER}); |
447 |
+ |
} |
448 |
|
|
449 |
|
# Establish the order of parsing the value strings: |
450 |
|
my $order = $self->process_environments($environments); |
559 |
|
elsif (exists($ENV{$envname})) |
560 |
|
{ |
561 |
|
# Nothing to do here: |
562 |
+ |
push(@$runtime, $envname); # FIX From Shahzad. |
563 |
|
next; |
564 |
|
} |
565 |
|
else |