diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-09-06 08:57:09 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-07 08:34:00 +0000 |
| commit | cdf674e1019395bb38d801c234376044a1c701f1 (patch) | |
| tree | 88eee76a0086f977c126c6a876a0fca9a57e554c /ext | |
| parent | 642c9703ffc99e24e22444f994211bc3ba6f6d3f (diff) | |
| download | perl-cdf674e1019395bb38d801c234376044a1c701f1.tar.gz | |
Force uppercase drive letters
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709060957p9a530feu7b97616dd8cd3b50@mail.gmail.com>
p4raw-id: //depot/perl@31807
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Win32/longpath.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Win32/longpath.inc b/ext/Win32/longpath.inc index 007990de60..ea6c1de48a 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 */ |