Changeset 25533

Show
Ignore:
Timestamp:
07.05.2012 14:50:48 (7 years ago)
Author:
ak19
Message:

Need to ensure there are quotes around the path to the java command returned by the new get_java_command() subroutine, in case there are any spaces in this path.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/util.pm

    r25512 r25533  
    17151715} 
    17161716 
     1717# returns the path to the java command in the JRE included with GS (if any), 
     1718# quoted to safeguard any spaces in this path, otherwise a simple java 
     1719# command is returned which assumes and will try for a system java. 
    17171720sub get_java_command { 
    17181721    my $java = "java"; 
     
    17221725    if(-d $java_bin) { 
    17231726        $java = &util::filename_cat($java_bin,"java"); 
     1727        $java = "\"".$java."\""; # quoted to preserve spaces in path 
    17241728    } 
    17251729    }