This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Force uppercase drive letters
authorJerry D. Hedden <jdhedden@cpan.org>
Thu, 6 Sep 2007 12:57:09 +0000 (08:57 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 7 Sep 2007 08:34:00 +0000 (08:34 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709060957p9a530feu7b97616dd8cd3b50@mail.gmail.com>

p4raw-id: //depot/perl@31807

ext/Win32/longpath.inc

index 007990d..ea6c1de 100644 (file)
@@ -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 */