| 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 |
| 580 |
|
my $type = 'RUNTIME'; |
| 581 |
|
my $envdata = $tsv->environment($type, $rtname); |
| 582 |
|
my ($rttype,$realrtname) = split(':',$rtname); |
| 583 |
< |
|
| 583 |
> |
|
| 584 |
|
# Only validate paths: |
| 585 |
|
if ($rtname =~ /:/) |
| 586 |
|
{ |
