Changeset 23483


Ignore:
Timestamp:
12/14/10 14:40:19 (11 years ago)
Author:
davidb
Message:

Standardize on upper-case drive letter for Windows

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.