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 |