BEGIN {
my $path_aref = "/u/wwsmith/pkg/ngt/lib",<br>
"/u/wwsmith/pkg/globus-2.0-gcc-3.1.1/lib",<br>
"/u/wwsmith/pkg/xerces-c-1_7_0-gcc-3.1.1/lib",<br>
"/u/wwsmith/pkg/cppunit-1.8.0-gcc-3.1.1/lib",<br>
"/u/wwsmith/pkg/gcc-3.1.1/lib",<br>
"/usr/local/pkg/globus/2.0/lib",<br>
"/opt/scsl/scsl/usr/lib32/mips4",<br>
"/opt/scsl/scsl/usr/lib32",<br>
"/opt/mpt/mpt/usr/lib32/mips4",<br>
"/opt/mpt/mpt/usr/lib32",<br>
"/opt/MIPSpro/MIPSpro/usr/lib32/mips4",<br>
"/opt/MIPSpro/MIPSpro/usr/lib32" ;
foreach my $path ( @$path_aref ) {
my $ld = $ENV{LD_LIBRARYN32_PATH};
if( ! $ld ) {
$ENV{LD_LIBRARYN32_PATH} = $path;
} elsif( $ld !~ m#(^|:)\Q$path\E(:|$)# ) {
$ENV{LD_LIBRARYN32_PATH} .= ':' . $path;
} else {
$path = "";
}
if( $path ) {
exec 'env', $^X, $0, @ARGV;
}
}
}
In reply to Re: exec problem
by tejnil
in thread exec problem
by tejnil
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |