Index: D:/workspace/7.4/server/CPAN/File/Next.pm =================================================================== --- D:/workspace/7.4/server/CPAN/File/Next.pm (revision 28455) +++ D:/workspace/7.4/server/CPAN/File/Next.pm (working copy) @@ -224,6 +224,11 @@ return sub { while (@queue) { my ($dir,$file,$fullpath) = splice( @queue, 0, 3 ); + + if ($^O =~ /^m?s?win/i && !-f $fullpath && !-d _) { + $fullpath = Win32::GetANSIPathName($fullpath); + } + if ( -f $fullpath ) { if ( $filter ) { local $_ = $file; @@ -249,6 +254,11 @@ return sub { while (@queue) { my (undef,undef,$fullpath) = splice( @queue, 0, 3 ); + + if ($^O =~ /^m?s?win/i && !-f $fullpath && !-d _) { + $fullpath = Win32::GetANSIPathName($fullpath); + } + if ( -d $fullpath ) { unshift( @queue, _candidate_files( $parms, $fullpath ) ); return $fullpath;