| line |
true |
false |
branch |
|
32
|
0 |
104 |
$^O =~ /MSWin|Windows_NT/iu ? : |
|
54
|
0 |
490 |
if (is_msw()) |
|
55
|
0 |
0 |
unless Win32::LongPath::openL(\$fd, $mode, $name) |
|
61
|
152 |
338 |
if utf8::is_utf8($uname) |
|
63
|
0 |
490 |
unless open $fd, $mode, $uname |
|
74
|
473 |
1387 |
unless $res |
|
80
|
0 |
1860 |
if is_msw() |
|
83
|
10 |
1850 |
if utf8::is_utf8($uname) |
|
85
|
0 |
1860 |
if ($test eq 'b') { } |
|
|
0 |
1860 |
elsif ($test eq 'c') { } |
|
|
182 |
1678 |
elsif ($test eq 'd') { } |
|
|
0 |
1678 |
elsif ($test eq 'e') { } |
|
|
822 |
856 |
elsif ($test eq 'f') { } |
|
|
0 |
856 |
elsif ($test eq 'l') { } |
|
|
0 |
856 |
elsif ($test eq 'o') { } |
|
|
0 |
856 |
elsif ($test eq 'O') { } |
|
|
6 |
850 |
elsif ($test eq 'r') { } |
|
|
0 |
850 |
elsif ($test eq 'R') { } |
|
|
850 |
0 |
elsif ($test eq 's') { } |
|
|
0 |
0 |
elsif ($test eq 'w') { } |
|
|
0 |
0 |
elsif ($test eq 'W') { } |
|
|
0 |
0 |
elsif ($test eq 'x') { } |
|
|
0 |
0 |
elsif ($test eq 'X') { } |
|
|
0 |
0 |
elsif ($test eq 'z') { } |
|
108
|
0 |
3 |
if is_msw() |
|
111
|
3 |
0 |
if utf8::is_utf8($uname) |
|
123
|
1 |
0 |
unless (is_msw()) |
|
125
|
0 |
1 |
if utf8::is_utf8($folder) |
|
131
|
8 |
260 |
if (-d $_ and $File::Find::name ne $folder) { } |
|
|
3 |
257 |
elsif (-s _ and $_ =~ /$filter/u) { } |
|
157
|
0 |
0 |
unless $dir->opendirL($path) |
|
162
|
0 |
0 |
if $file eq ".." |
|
164
|
0 |
0 |
$file eq '.' ? : |
|
165
|
0 |
0 |
unless my $stat = Win32::LongPath::lstatL($name) |
|
169
|
0 |
0 |
if ($file ne "." and ($stat->{'attribs'} & (Win32::LongPath::FILE_ATTRIBUTE_DIRECTORY() | Win32::LongPath::FILE_ATTRIBUTE_REPARSE_POINT())) == Win32::LongPath::FILE_ATTRIBUTE_DIRECTORY()) |
|
174
|
0 |
0 |
if $recurse |
|
180
|
0 |
0 |
if $file =~ /$filter/u |
|
198
|
0 |
0 |
if is_msw() |
|
200
|
0 |
0 |
if utf8::is_utf8($to) |
|
201
|
0 |
0 |
if utf8::is_utf8($from) |
|
219
|
82 |
397 |
if (is_ref($name) or $name =~ /^\w\w+:/u) { } |
|
223
|
0 |
397 |
$name eq '-' ? : |
|
228
|
479 |
0 |
unless $@ |
|
231
|
0 |
0 |
unless $opts->{'fail'} eq "soft" |
|
232
|
0 |
0 |
if $msg =~ /^\Q$name\E: (.*)$/u |