Changeset 24362 for main/trunk/greenstone2/bin/script/full-rebuild.pl
- Timestamp:
- 2011-08-03T21:17:30+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/full-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 … … 105 102 my $final_status = 0; 106 103 107 my $launch_cmd = "";108 if($ENV{'PERLPATH'}) {109 104 # need to ensure that the path to perl is quoted (in case there's spaces in it) 110 if($ENV{'GSDLOS'} =~ m/windows/) { 111 $launch_cmd = "\"$ENV{'PERLPATH'}\\Perl.exe\" -S "; 112 } else { 113 $launch_cmd = "\"$ENV{'PERLPATH'}/perl\" -S "; 114 } 115 } else { 116 #Config{perlpath}, like $^X, is a special variable containing the full path to the current perl executable we are in 117 $launch_cmd = "\"$Config{perlpath}\" -S "; 118 } 105 my $launch_cmd = "\"".&util::get_perl_exec()."\" -S "; 119 106 120 107 print "\n";
Note:
See TracChangeset
for help on using the changeset viewer.