Changeset 23418 for main/trunk/greenstone2/perllib/util.pm
- Timestamp:
- 2010-12-08T13:47:34+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r23416 r23418 1106 1106 } 1107 1107 # 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/^(.):/\l$1:/; 1109 1109 if ((defined $and_encode) && ($and_encode)) { 1110 1110 $filename_full_path = encode("utf8",$filename_full_path); … … 1132 1132 # Make sure initial drive letter is lower-case (to fit in 1133 1133 # with rest of Greenstone) 1134 $filename_full_path =~ s/^(.) /\l$1/;1134 $filename_full_path =~ s/^(.):/\l$1:/; 1135 1135 } 1136 1136
Note:
See TracChangeset
for help on using the changeset viewer.