Changeset 28226

Show
Ignore:
Timestamp:
05.09.2013 16:36:42 (6 years ago)
Author:
ak19
Message:

Related to previous commit: the test for whether the OS is Windows, to determine whether to import the Win32 package so we can use the GetLongPathName?() subroutine, is now the same as in doc.pm

Files:
1 modified

Legend:

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

    r28225 r28226  
    4242use FileUtils; 
    4343 
    44 if ($^O =~ m/mswin/i) { 
     44if ($ENV{'GSDLOS'} =~ /^windows$/i) { 
    4545    require Win32; # for working out Windows Long Filenames from Win 8.3 short filenames 
    4646} 
     
    13001300    return $path unless is_abs_path_any_os($path); # path is relative 
    13011301     
    1302     if ($^O =~ m/mswin/i) { 
     1302    if ($ENV{'GSDLOS'} =~ /^windows$/i) {        
    13031303        $path = &Win32::GetLongPathName($path);  
    13041304    }