From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Thu, 6 Sep 2007 12:57:09 +0000 (-0400)
Subject: Force uppercase drive letters
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cdf674e1019395bb38d801c234376044a1c701f1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 */