The R Project SVN – R – Diff – /trunk/src/gnuwin32/extra.c

     int strip = 0;
     if (len < 4 || wcsncmp(L"\\\\?\\", res, 4))
 	/* res should start with \\?\ */
 	return FALSE;
-    if (len > 8 && !wcsncmp(L"UNC\\", res+4, 4))
+    if (len > 8 && !wcsncmp(L"UNC\\", res+4, 4)) {
 	/* UNC path \\?\UNC */
+	res[6] = L'\\';
-	strip = 7;
+	strip = 6;
-    else if (len >= 6 && Ri18n_iswctype(res[4], Ri18n_wctype("alpha"))
+    } else if (len >= 6 && Ri18n_iswctype(res[4], Ri18n_wctype("alpha"))
 	     && res[5] == L':' && res[6] == L'\\')
 	/* \\?\D: */
 	strip = 4;
     else
 	return FALSE;

The R Project SVN R