- Timestamp:
- 2011-08-03T21:17:30+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/incremental-rebuild.pl
r24192 r24362 39 39 } 40 40 41 42 41 use strict; 43 44 use Config; # for getting the perlpath in the recommended way45 42 use util; 46 43 … … 85 82 my $final_status = 0; 86 83 87 my $launch_cmd = "";88 if($ENV{'PERLPATH'}) {89 84 # need to ensure that the path to perl is quoted (in case there's spaces in it) 90 if($ENV{'GSDLOS'} =~ m/windows/) { 91 $launch_cmd = "\"$ENV{'PERLPATH'}\\Perl.exe\" -S "; 92 } else { 93 $launch_cmd = "\"$ENV{'PERLPATH'}/perl\" -S "; 94 } 95 } else { 96 #Config{perlpath}, like $^X, is a special variable containing the full path to the current perl executable we are in 97 $launch_cmd = "\"$Config{perlpath}\" -S "; 98 } 85 my $launch_cmd = "\"".&util::get_perl_exec()."\" -S "; 99 86 100 87 print STDERR "\n";
Note:
See TracChangeset
for help on using the changeset viewer.