Changeset 23314 for main/trunk/greenstone2
- Timestamp:
- 2010-11-10T16:45:13+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r23307 r23314 1388 1388 #my %env_map = (); 1389 1389 # Get the localised ENV settings of running a localised source setup.bash 1390 # and put it into the ENV here. 1391 my $perl_command = "(cd $GSDLHOME; . ./setup.bash > /dev/null; env)"; 1390 # and put it into the ENV here. Need to clear GSDLHOME before running setup 1391 #my $perl_command = "(cd $GSDLHOME; export GSDLHOME=; . ./setup.bash > /dev/null; env)"; 1392 my $perl_command = "(cd $GSDLHOME; /bin/bash -c \"export GSDLHOME=; source setup.bash > /dev/null; env\")"; 1392 1393 if($GSDLOS =~ m/windows/i) { 1393 #$perl_command = " (cmd && cd $GSDLHOME && setup.bat > nul && set && exit)";1394 $perl_command = "(cd $GSDLHOME && setup.bat > nul&& set)";1394 #$perl_command = "cmd /C \"cd $GSDLHOME&& set GSDLHOME=&& setup.bat > nul&& set\""; 1395 $perl_command = "(cd $GSDLHOME&& set GSDLHOME=&& setup.bat > nul&& set)"; 1395 1396 } 1396 1397 if (!open(PIN, "$perl_command |")) {
Note:
See TracChangeset
for help on using the changeset viewer.