| 33 |
|
sub initpathvars() |
| 34 |
|
{ |
| 35 |
|
my $self=shift; |
| 36 |
< |
if (!exists $ENV{SCRAM_PATH_VARIABLES}) |
| 36 |
> |
if (!exists $self->{internal}{path_variables}) |
| 37 |
|
{ |
| 38 |
|
my %pathvars=("PATH", 1, "LD_LIBRARY_PATH", 1, "DYLD_LIBRARY_PATH", 1, "DYLD_FALLBACK_LIBRARY_PATH", 1, "PYTHONPATH", 1); |
| 39 |
|
my $p = $self->_parsetool($self->{configdir}."/Self.xml"); |
| 56 |
|
} |
| 57 |
|
my $paths = join("|",keys %pathvars); |
| 58 |
|
if ($paths){$paths = "^($paths)\$";} |
| 59 |
< |
$ENV{SCRAM_PATH_VARIABLES}=$paths; |
| 59 |
> |
$self->{internal}{path_variables}=$paths; |
| 60 |
|
} |
| 61 |
|
} |
| 62 |
|
|
| 229 |
|
sub _parsetool() |
| 230 |
|
{ |
| 231 |
|
my ($self,$filename)=@_; |
| 232 |
< |
my $p = BuildSystem::ToolParser->new(); |
| 232 |
> |
my $p = BuildSystem::ToolParser->new($self->{internal}{path_variables}); |
| 233 |
|
$p->filehead ('<?xml version="1.0" encoding="UTF-8" standalone="yes"?><doc type="BuildSystem::ToolDoc" version="1.0">'); |
| 234 |
|
$p->filetail ('</doc>'); |
| 235 |
|
$p->parse($filename); |
