Show
Ignore:
Timestamp:
03.08.2011 21:17:30 (8 years ago)
Author:
ak19
Message:

The method of locating perl has changed once more: util now defines the fuction get_perl_exec which is used by other scripts to obtain the path to the perl executable they should use.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/bin/script/gti.pl

    r24223 r24362  
    3131    die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'}; 
    3232    unshift (@INC, "$ENV{'GSDLHOME'}/perllib"); 
    33  
    34     if(!$ENV{'PERLPATH'}) { 
    35     use Config; # for getting the perlpath in the recommended way 
    36     my $full_perl_exec = $Config{perlpath}; #$^X; 
    37     require File::Basename; 
    38     my $perl_path = File::Basename::dirname($full_perl_exec); 
    39     $ENV{'PERLPATH'} = $perl_path; 
    40     } 
    4133} 
    4234 
     
    645637 
    646638    my $target_filepath = &util::filename_cat($gsdl_root_directory, $target_file); 
    647     my $perl_exec = &util::filename_cat($ENV{'PERLPATH'}, "perl"); 
     639    my $perl_exec = &util::get_perl_exec(); 
    648640    my $java_exec = "java"; 
    649641    if(defined($ENV{'JAVA_HOME'}) && $ENV{'JAVA_HOME'} ne ""){