Fix [perl #66970] Incorrect coderef in MODIFY_CODE_ATTRIBUTES

[p5sagit/p5-mst-13.2.git] / ext / Win32 / longpath.inc

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