| line |
true |
false |
branch |
|
51
|
0 |
0 |
if ($$arg{'error'}) { } |
|
52
|
0 |
0 |
unless defined $object |
|
53
|
0 |
0 |
if $! |
|
57
|
0 |
0 |
defined $object ? : |
|
62
|
0 |
0 |
unless @_ and UNIVERSAL::isa($_[-1], 'HASH') |
|
72
|
0 |
0 |
if ($old_style) { } |
|
75
|
0 |
0 |
unless UNIVERSAL::isa($paths, 'ARRAY') |
|
77
|
0 |
0 |
defined $mode ? : |
|
81
|
0 |
0 |
if exists $$arg{'mask'} |
|
82
|
0 |
0 |
unless exists $$arg{'mode'} |
|
83
|
0 |
0 |
if exists $$arg{'error'} |
|
84
|
0 |
0 |
if exists $$arg{'user'} |
|
85
|
0 |
0 |
if exists $$arg{'uid'} |
|
86
|
0 |
0 |
if (exists $$arg{'owner'} and $$arg{'owner'} =~ /\D/) |
|
88
|
0 |
0 |
if (defined $uid) { } |
|
96
|
0 |
0 |
if (exists $$arg{'group'} and $$arg{'group'} =~ /\D/) |
|
98
|
0 |
0 |
if (defined $gid) { } |
|
106
|
0 |
0 |
if (exists $$arg{'owner'} and not exists $$arg{'group'}) |
|
109
|
0 |
0 |
if (exists $$arg{'group'} and not exists $$arg{'owner'}) |
|
123
|
0 |
0 |
unless defined $path and length $path |
|
124
|
0 |
0 |
if $^O eq 'os2' and $path =~ /^\w:\z/s |
|
126
|
0 |
0 |
if ($Is_VMS) |
|
127
|
0 |
0 |
if $path eq '/' |
|
130
|
0 |
0 |
if -d $path |
|
132
|
0 |
0 |
unless (-d $parent or $path eq $parent) |
|
135
|
0 |
0 |
if $$arg{'verbose'} |
|
136
|
0 |
0 |
if (mkdir $path, $$arg{'mode'}) { } |
|
138
|
0 |
0 |
if (exists $$arg{'owner'}) |
|
140
|
0 |
0 |
unless (chown $$arg{'owner'}, $$arg{'group'}, $path) |
|
148
|
0 |
0 |
if $e ne $e1 |
|
150
|
0 |
0 |
unless (-d $path) |
|
152
|
0 |
0 |
if ($$arg{'error'}) { } |
|
165
|
0 |
0 |
unless @_ and UNIVERSAL::isa($_[-1], 'HASH') |
|
176
|
0 |
0 |
if $dv ne $tv |
|
182
|
0 |
0 |
if @t < @d |
|
193
|
0 |
0 |
if ($old_style) { } |
|
197
|
0 |
0 |
defined $safe ? : |
|
199
|
0 |
0 |
if (defined $paths and length $paths) { } |
|
200
|
0 |
0 |
unless UNIVERSAL::isa($paths, 'ARRAY') |
|
209
|
0 |
0 |
if exists $$arg{'error'} |
|
210
|
0 |
0 |
if exists $$arg{'result'} |
|
218
|
0 |
0 |
unless ($$arg{'cwd'} = getcwd()) |
|
226
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
227
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
229
|
0 |
0 |
if $^O eq 'VMS' |
|
230
|
0 |
0 |
if ($ortho_root_length and _is_subdir($ortho_root, $ortho_cwd)) |
|
236
|
0 |
0 |
if ($Is_MacOS) { } |
|
|
0 |
0 |
elsif ($^O eq 'MSWin32') { } |
|
237
|
0 |
0 |
unless $p =~ /:/ |
|
238
|
0 |
0 |
unless $p =~ /:\z/ |
|
249
|
0 |
0 |
unless (@{$arg;}{'device', 'inode', 'perm'} = (lstat $$arg{'cwd'})[0, 1]) |
|
274
|
0 |
0 |
$$arg{'prefix'} ? : |
|
279
|
0 |
0 |
unless my($ldev, $lino, $perm) = (lstat $root)[0, 1, 2] |
|
281
|
0 |
0 |
if (-d _) { } |
|
282
|
0 |
0 |
if $Is_VMS |
|
284
|
0 |
0 |
unless (chdir $root) |
|
289
|
0 |
0 |
if (not $$arg{'safe'} || $nperm == $perm || chmod($nperm, $root)) { } |
|
|
0 |
0 |
elsif (not chdir $root) { } |
|
299
|
0 |
0 |
unless (my($cur_dev, $cur_inode, $perm) = (stat $curdir)[0, 1, 2]) |
|
304
|
0 |
0 |
if ($Need_Stat_Check) |
|
305
|
0 |
0 |
unless $ldev eq $cur_dev and $lino eq $cur_inode |
|
317
|
0 |
0 |
unless ($$arg{'safe'} or $nperm == $perm or chmod $nperm, $curdir) |
|
323
|
0 |
0 |
if $] < 5.006 |
|
324
|
0 |
0 |
if (not opendir($d, $curdir)) { } |
|
330
|
0 |
0 |
if (not defined ${"\cTAINT";} or ${"\cTAINT";}) { } |
|
341
|
0 |
0 |
if ($Is_VMS) |
|
345
|
0 |
0 |
$_ eq '.' ? : |
|
348
|
0 |
0 |
if $_ ne $updir |
|
350
|
0 |
0 |
if (@files) |
|
361
|
0 |
0 |
if ($nperm != $perm and not chmod($perm, $curdir)) |
|
366
|
0 |
0 |
unless chdir $$arg{'cwd'} |
|
371
|
0 |
0 |
unless ($cur_dev, $cur_inode) = (stat $curdir)[0, 1] |
|
374
|
0 |
0 |
if ($Need_Stat_Check) |
|
375
|
0 |
0 |
unless $$arg{'device'} eq $cur_dev and $$arg{'inode'} eq $cur_inode |
|
379
|
0 |
0 |
if ($$arg{'depth'} or not $$arg{'keep_root'}) |
|
380
|
0 |
0 |
$Is_VMS ? : |
|
|
0 |
0 |
if ($$arg{'safe'} and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-w $root)) |
|
382
|
0 |
0 |
if $$arg{'verbose'} |
|
385
|
0 |
0 |
if ($Force_Writeable and not chmod($perm | 448, $root)) |
|
388
|
0 |
0 |
if $$arg{'verbose'} |
|
389
|
0 |
0 |
if (rmdir $root) { } |
|
390
|
0 |
0 |
if $$arg{'result'} |
|
395
|
0 |
0 |
$Is_VMS ? : |
|
|
0 |
0 |
if ($Force_Writeable and not chmod($perm, $Is_VMS ? VMS::Filespec::fileify($root) : $root)) |
|
404
|
0 |
0 |
if $Is_VMS and not 'File::Spec'->file_name_is_absolute($root) and not $root =~ /(?]+/ |
|
409
|
0 |
0 |
$Is_VMS ? : |
|
|
0 |
0 |
if ($$arg{'safe'} and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-l $root || -w $root)) |
|
413
|
0 |
0 |
if $$arg{'verbose'} |
|
418
|
0 |
0 |
if ($Force_Writeable and $nperm != $perm and not chmod($nperm, $root)) |
|
421
|
0 |
0 |
if $$arg{'verbose'} |
|
424
|
0 |
0 |
if (unlink $root) { } |
|
425
|
0 |
0 |
if $$arg{'result'} |
|
429
|
0 |
0 |
unless $Force_Writeable and chmod $perm, $root |
|
434
|
0 |
0 |
unless $Is_VMS and lstat $root |