| line |
true |
false |
branch |
|
59
|
0 |
0 |
if ($arg->{'error'}) { } |
|
60
|
0 |
0 |
unless defined $object |
|
61
|
0 |
0 |
if $! |
|
65
|
0 |
0 |
defined $object ? : |
|
81
|
0 |
0 |
unless @_ and __is_arg($_[-1]) |
|
91
|
0 |
0 |
if ($old_style) { } |
|
94
|
0 |
0 |
unless UNIVERSAL::isa($paths, 'ARRAY') |
|
96
|
0 |
0 |
defined $mode ? : |
|
120
|
0 |
0 |
if (not $args_permitted{$k}) { } |
|
|
0 |
0 |
elsif ($not_on_win32_args{$k} and 0) { } |
|
130
|
0 |
0 |
if @bad_args |
|
132
|
0 |
0 |
if @win32_implausible_args |
|
134
|
0 |
0 |
if exists $data->{'mask'} |
|
135
|
0 |
0 |
unless exists $data->{'mode'} |
|
136
|
0 |
0 |
if exists $data->{'error'} |
|
137
|
0 |
0 |
unless (@win32_implausible_args) |
|
138
|
0 |
0 |
if exists $data->{'user'} |
|
139
|
0 |
0 |
if exists $data->{'uid'} |
|
140
|
0 |
0 |
if (exists $data->{'owner'} and $data->{'owner'} =~ /\D/) |
|
142
|
0 |
0 |
if (defined $uid) { } |
|
152
|
0 |
0 |
if (exists $data->{'group'} and $data->{'group'} =~ /\D/) |
|
154
|
0 |
0 |
if (defined $gid) { } |
|
164
|
0 |
0 |
if (exists $data->{'owner'} and not exists $data->{'group'}) |
|
167
|
0 |
0 |
if (exists $data->{'group'} and not exists $data->{'owner'}) |
|
182
|
0 |
0 |
unless defined $path and length $path |
|
190
|
0 |
0 |
if -d $path |
|
194
|
0 |
0 |
unless (-d $parent or $path eq $parent) |
|
197
|
0 |
0 |
if $data->{'verbose'} |
|
198
|
0 |
0 |
if (mkdir $path, $data->{'mode'}) { } |
|
200
|
0 |
0 |
if (exists $data->{'owner'}) |
|
203
|
0 |
0 |
unless (chown $data->{'owner'}, $data->{'group'}, $path) |
|
209
|
0 |
0 |
if (exists $data->{'chmod'}) |
|
213
|
0 |
0 |
unless (chmod $data->{'chmod'}, $path) |
|
230
|
0 |
0 |
if $e ne $e1 |
|
233
|
0 |
0 |
unless (-d $path) |
|
235
|
0 |
0 |
if ($data->{'error'}) { } |
|
248
|
0 |
0 |
unless @_ and __is_arg($_[-1]) |
|
259
|
0 |
0 |
if $dv ne $tv |
|
265
|
0 |
0 |
if @t < @d |
|
275
|
0 |
0 |
if ($old_style) { } |
|
279
|
0 |
0 |
defined $safe ? : |
|
281
|
0 |
0 |
if (defined $paths and length $paths) { } |
|
282
|
0 |
0 |
unless UNIVERSAL::isa($paths, 'ARRAY') |
|
300
|
0 |
0 |
if (not $args_permitted{$k}) { } |
|
307
|
0 |
0 |
if @bad_args |
|
309
|
0 |
0 |
if exists $data->{'error'} |
|
310
|
0 |
0 |
if exists $data->{'result'} |
|
328
|
0 |
0 |
unless ($data->{'cwd'} = getcwd()) |
|
342
|
0 |
0 |
if ($ortho_root_length and _is_subdir($ortho_root, $ortho_cwd)) |
|
361
|
0 |
0 |
unless (@{$data;}{'device', 'inode'} = (lstat $data->{'cwd'})[0, 1]) |
|
389
|
0 |
0 |
$data->{'prefix'} ? : |
|
392
|
0 |
0 |
unless my($ldev, $lino, $perm) = (lstat $root)[0, 1, 2] |
|
395
|
0 |
0 |
if (-d _) { } |
|
399
|
0 |
0 |
unless (chdir $root) |
|
406
|
0 |
0 |
if (open $root_fh, '<', $root) |
|
411
|
0 |
0 |
unless ($data->{'safe'} or $nperm == $perm or not -d _ or $fh_dev ne $ldev or $fh_inode ne $lino or eval {
do {
chmod $nperm, $root_fh
}
}) |
|
428
|
0 |
0 |
unless (chdir $root) |
|
435
|
0 |
0 |
unless (my($cur_dev, $cur_inode, $perm) = (stat $curdir)[0, 1, 2]) |
|
441
|
0 |
0 |
unless $ldev eq $cur_dev and $lino eq $cur_inode |
|
455
|
0 |
0 |
unless ($data->{'safe'} or $nperm == $perm or chmod $nperm, $curdir) |
|
468
|
0 |
0 |
if $] < 5.006 |
|
469
|
0 |
0 |
if (not opendir($d, $curdir)) { } |
|
474
|
0 |
0 |
if (not defined ${^TAINT} or ${^TAINT}) { } |
|
492
|
0 |
0 |
if $_ ne $updir |
|
494
|
0 |
0 |
if (@files) |
|
506
|
0 |
0 |
if ($nperm != $perm and not chmod($perm, $curdir)) |
|
512
|
0 |
0 |
unless chdir $data->{'cwd'} |
|
517
|
0 |
0 |
unless ($cur_dev, $cur_inode) = (stat $curdir)[0, 1] |
|
523
|
0 |
0 |
unless $data->{'device'} eq $cur_dev and $data->{'inode'} eq $cur_inode |
|
531
|
0 |
0 |
if ($data->{'depth'} or not $data->{'keep_root'}) |
|
532
|
0 |
0 |
if ($data->{'safe'} and not -w $root) |
|
537
|
0 |
0 |
if $data->{'verbose'} |
|
543
|
0 |
0 |
if $data->{'verbose'} |
|
544
|
0 |
0 |
if (rmdir $root) { } |
|
545
|
0 |
0 |
if $data->{'result'} |
|
574
|
0 |
0 |
if ($data->{'safe'} and not -l $root || -w $root) |
|
583
|
0 |
0 |
if $data->{'verbose'} |
|
594
|
0 |
0 |
if $data->{'verbose'} |
|
598
|
0 |
0 |
if (unlink $root) { } |
|
599
|
0 |
0 |
if $data->{'result'} |