Changeset 23483

Show
Ignore:
Timestamp:
14.12.2010 14:40:19 (9 years ago)
Author:
davidb
Message:

Standardize on upper-case drive letter for Windows

Files:
1 modified

Legend:

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

    r23418 r23483  
    11061106    } 
    11071107    # Make sure initial drive letter is lower-case (to fit in with rest of Greenstone) 
    1108     $filename_full_path =~ s/^(.):/\l$1:/; 
     1108    $filename_full_path =~ s/^(.):/\u$1:/; 
    11091109    if ((defined $and_encode) && ($and_encode)) { 
    11101110        $filename_full_path = encode("utf8",$filename_full_path); 
     
    11321132    # Make sure initial drive letter is lower-case (to fit in 
    11331133    # with rest of Greenstone) 
    1134     $filename_full_path =~ s/^(.):/\l$1:/; 
     1134    $filename_full_path =~ s/^(.):/\u$1:/; 
    11351135    } 
    11361136