Changeset 23483 for main/trunk/greenstone2/perllib/util.pm

Timestamp:

2010-12-14T14:40:19+13:00 (13 years ago)

Author:

davidb

Message:

Standardize on upper-case drive letter for Windows

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/util.pm

@@ -1106 +1106 @@
     }
     # Make sure initial drive letter is lower-case (to fit in with rest of Greenstone)
-    $filename_full_path =~ s/^(.):/\l$1:/;
+    $filename_full_path =~ s/^(.):/\u$1:/;
     if ((defined $and_encode) && ($and_encode)) {
         $filename_full_path = encode("utf8",$filename_full_path);
@@ -1132 +1132 @@
     # Make sure initial drive letter is lower-case (to fit in
     # with rest of Greenstone)
-    $filename_full_path =~ s/^(.):/\l$1:/;
+    $filename_full_path =~ s/^(.):/\u$1:/;
     }