Changeset 21804 for main/trunk
- Timestamp:
- 2010-03-19T22:20:20+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/cgi-bin/gsdlCGI.pm
r20573 r21804 454 454 # prepended to PATH only if the same perl bin dir path is not already on PATH env 455 455 my $perl_bin_dir = $self->get_perl_path($optional); 456 if(defined $perl_bin_dir) 456 if(defined $perl_bin_dir) 457 457 { 458 &util::envvar_prepend("PATH", $perl_bin_dir); 458 &util::envvar_prepend("PATH", $perl_bin_dir); 459 460 #my ($perl_home) = ($perl_bin_dir =~ m/(.*)[\\|\/]bin[\\|\/]?$/); 461 my ($tailname,$perl_home) = File::Basename::fileparse($perl_bin_dir, "\\.(?:[^\\.]+?)\$"); 462 $ENV{'PERL5LIB'} = &util::filename_cat($perl_home, "lib"); 463 464 if($gsdlos eq "darwin") { 465 &util::envvar_prepend("DYLD_LIBRARY_PATH", &util::filename_cat($perl_home,"5.8.9","darwin-thread-multi-2level","CORE")); 466 } elsif($gsdlos eq "linux") { 467 &util::envvar_prepend("LD_LIBRARY_PATH", &util::filename_cat($perl_home,"5.8.9","i686-linux-thread-multi","CORE")); 468 } 459 469 } 460 470 elsif ($gsdlos eq "windows")
Note:
See TracChangeset
for help on using the changeset viewer.