196 |
|
|
197 |
push(@$Env, ["LD_LIBRARY_PATH", "${env_lib}", 1]); |
push(@$Env, ["LD_LIBRARY_PATH", "${env_lib}", 1]); |
198 |
|
|
199 |
push(@$Env, ["PERL5LIB", join(":", grep({ $_ ne "." } @INC)), 1]); |
my @perllib = grep({ $_ ne "." } @INC, "$fig_disk/config", $release_lib); |
200 |
|
|
201 |
|
push(@$Env, ["PERL5LIB", join(":", @perllib), 1]); |
202 |
} |
} |
203 |
|
|
204 |
sub configure_python |
sub configure_python |
576 |
# Append the perl path to the environment, for use later with CallPerl. |
# Append the perl path to the environment, for use later with CallPerl. |
577 |
# |
# |
578 |
|
|
579 |
my $perlpath = join(":", @INC, "$fig_disk/config"); |
my $perlpath = join(":", @INC, "$fig_disk/config", $release_lib); |
580 |
print $fh <<END; |
print $fh <<END; |
581 |
if os.getenv("PERL5LIB", "") != "": |
if os.getenv("PERL5LIB", "") != "": |
582 |
_delim = ":" |
_delim = ":" |