|Subject:||Mangled drive letter in File::Spec::Win32|
I am experiencing a problem with File::Spec::Win32 on Perl 5.8.0 compiled with MS Visual C++ 6.0. When passing a directory such as "n:\data" to File::Spec->catfile, the name gets mangled to "N0\data" (N zero) instead of a valid drive letter "N:". When passing "N:\data" to catfile, the function works correctly. I tracked the problem down to canonpath in File::Spec::Win32. Here is a patch which fixes the problem: 127c127 < $path =~ s/^([a-z]:)/\u$1/s; --- Show quoted text
> $path =~ s/^([a-z]):/\u$1:/s;It appears that "\u" in the substitution was the culprit.