Force uppercase drive letters

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709060957p9a530feu7b97616dd8cd3b50@mail.gmail.com>

p4raw-id: //depot/perl@31807

diff --git a/ext/Win32/longpath.inc b/ext/Win32/longpath.inc
index 007990d..ea6c1de 100644 (file)
--- a/ext/Win32/longpath.inc
+++ b/ext/Win32/longpath.inc
@@ -30,7 +30,7 @@ LONGPATH(CHAR_T *path)
     /* drive prefix */
     if (isALPHA(path[0]) && path[1] == ':') {
        start = path + 2;
-       *tmpstart++ = path[0];
+       *tmpstart++ = toupper(path[0]);
        *tmpstart++ = ':';
     }
     /* UNC prefix */