This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
642c970
)
Force uppercase drive letters
author
Jerry D. Hedden
<jdhedden@cpan.org>
Thu, 6 Sep 2007 12:57:09 +0000
(08:57 -0400)
committer
Rafael 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
patch
|
blob
|
blame
|
history
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 */