Changeset 30625
- Timestamp:
- 2016-07-26T19:58:24+12:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/common-src/cgi-bin/gsdlCGI.pm
r30624 r30625 576 576 $ENV{'PERL5LIB'} = &FileUtils::filenameConcatenate($perl_home, "lib"); 577 577 578 # add vendor\lib if it exists to PERL5LIB 579 # Strawberry Perl has a perl\vendor\lib folder. Check for it, if it exists add it to PATH for windows 580 # (Windows adds paths to library/dll files to PATH) 581 my $vendor_lib = &FileUtils::filenameConcatenate($perl_home, "vendor", "lib"); 582 if(FileUtils::fileExists($vendor_lib)) { 583 &util::envvar_prepend("PATH", $vendor_lib) if $gsdlos eq "windows"; 584 &util::envvar_append("PERL5LIB", $vendor_lib); 585 } 586 578 587 if($gsdlos eq "darwin") { 579 588 &util::envvar_prepend("DYLD_LIBRARY_PATH", &FileUtils::filenameConcatenate($perl_home,"5.8.9","darwin-thread-multi-2level","CORE")); … … 590 599 if(-e $perl_bin_dir) { 591 600 &util::envvar_append("PATH", $perl_bin_dir); 601 602 my ($tailname,$perl_home) = File::Basename::fileparse($perl_bin_dir, "\\.(?:[^\\.]+?)\$"); 603 my $vendor_lib = &FileUtils::filenameConcatenate($perl_home, "vendor", "lib"); 604 if(FileUtils::fileExists($vendor_lib)) { 605 #&util::envvar_prepend("PATH", $vendor_lib) if $gsdlos eq "windows"; 606 &util::envvar_append("PERL5LIB", $vendor_lib); 607 } 592 608 } 593 609 }
Note:
See TracChangeset
for help on using the changeset viewer.