| line |
true |
false |
branch |
|
93
|
6 |
1 |
if (defined $path) |
|
94
|
2 |
4 |
ref $path eq 'Paranoid::Glob' ? : |
|
101
|
1 |
6 |
unless defined $dirs |
|
104
|
6 |
1 |
if ($rv) |
|
105
|
2 |
4 |
defined $mode ? : |
|
106
|
1 |
5 |
unless (&detaint(\$mode, "int")) |
|
114
|
5 |
2 |
if ($rv) |
|
121
|
0 |
11 |
if -d $directory |
|
126
|
0 |
11 |
$parts[0] eq '' ? : |
|
130
|
17 |
0 |
unless (-d $subdir) |
|
131
|
17 |
0 |
if (mkdir $subdir, $mode) { } |
|
173
|
0 |
7 |
unless defined $errRef |
|
177
|
7 |
0 |
if (defined $target) |
|
178
|
6 |
1 |
ref $target eq 'Paranoid::Glob' ? : |
|
183
|
0 |
7 |
unless defined $glob |
|
186
|
7 |
0 |
if ($rv) |
|
198
|
2 |
19 |
unless (@fstat) |
|
202
|
2 |
0 |
if $! == 2 |
|
212
|
12 |
7 |
if (S_ISDIR($fstat[2])) { } |
|
215
|
1 |
11 |
unless (rmdir $_) |
|
227
|
0 |
7 |
unless (unlink $_) |
|
264
|
0 |
4 |
unless defined $errRef |
|
268
|
4 |
0 |
if (defined $target) |
|
269
|
0 |
4 |
ref $target eq 'Paranoid::Glob' ? : |
|
274
|
0 |
4 |
unless defined $glob |
|
276
|
4 |
0 |
if ($rv) |
|
307
|
1 |
5 |
unless (defined $dir and -e $dir and -d _ and -r _) |
|
309
|
1 |
0 |
!-d(_) ? : |
|
|
3 |
1 |
!-e(_) ? : |
|
|
0 |
4 |
!defined($dir) ? : |
|
319
|
5 |
4 |
if ($rv) |
|
324
|
5 |
0 |
if ($rv) { } |
|
328
|
13 |
10 |
unless /^\.\.?$/s |
|
333
|
0 |
5 |
if $noLinks |
|
363
|
3 |
0 |
unless defined $noLinks |
|
372
|
2 |
1 |
if $rv |
|
396
|
3 |
0 |
unless defined $noLinks |
|
406
|
2 |
1 |
if $rv |
|
427
|
8 |
1 |
if (defined $filename) |
|
474
|
0 |
2 |
unless (defined $link and scalar lstat $link) |
|
484
|
0 |
2 |
if ($fullyTranslate) { } |
|
490
|
0 |
0 |
if (defined $target) { } |
|
507
|
2 |
0 |
if (-l $link) |
|
514
|
2 |
0 |
if ($target =~ m[^(?:\.\.?/|[^/])]s) { } |
|
527
|
2 |
0 |
if defined $link |
|
555
|
2 |
5 |
unless defined $errRef |
|
559
|
7 |
0 |
if (defined $target) |
|
560
|
3 |
4 |
ref $target eq 'Paranoid::Glob' ? : |
|
565
|
0 |
7 |
unless defined $glob |
|
567
|
7 |
0 |
if ($rv) |
|
570
|
4 |
3 |
unless defined $stamp |
|
572
|
0 |
7 |
unless (&detaint(\$stamp, "int")) |
|
580
|
7 |
0 |
if ($rv) |
|
591
|
4 |
12 |
unless (-e $target) |
|
595
|
2 |
2 |
if (defined $fh) { } |
|
604
|
14 |
2 |
if ($irv) |
|
605
|
0 |
14 |
unless (utime $stamp, $stamp, $target) |
|
641
|
1 |
2 |
unless defined $errRef |
|
645
|
3 |
0 |
if (defined $target) |
|
646
|
1 |
2 |
ref $target eq 'Paranoid::Glob' ? : |
|
651
|
0 |
3 |
unless defined $glob |
|
653
|
3 |
0 |
if ($rv) |
|
682
|
12 |
9 |
if (defined $perm and $perm =~ /^\d+$/s) { } |
|
|
6 |
3 |
elsif (defined $perm and $perm =~ /^([ugo]+)([+\-])([rwxst]+)$/s) { } |
|
684
|
2 |
10 |
if ($perm =~ /^0/s) { } |
|
685
|
1 |
1 |
if ($perm =~ /^0[0-8]{3,4}$/s) { } |
|
706
|
3 |
3 |
if $tmp[0] =~ /u/s |
|
707
|
2 |
4 |
if $tmp[0] =~ /g/s |
|
708
|
4 |
2 |
if $tmp[0] =~ /o/s |
|
709
|
6 |
0 |
if $tmp[2] =~ /r/s |
|
710
|
5 |
1 |
if $tmp[2] =~ /w/s |
|
711
|
6 |
0 |
if $tmp[2] =~ /x/s |
|
713
|
1 |
5 |
if $tmp[2] =~ /t/s |
|
714
|
0 |
6 |
if $tmp[2] =~ /s/s and $tmp[0] =~ /g/s |
|
715
|
1 |
5 |
if $tmp[2] =~ /s/s and $tmp[0] =~ /u/s |
|
727
|
17 |
4 |
defined $rv ? : |
|
757
|
1 |
7 |
unless defined $errRef |
|
761
|
8 |
0 |
if (defined $target) |
|
762
|
6 |
2 |
ref $target eq 'Paranoid::Glob' ? : |
|
767
|
0 |
8 |
unless defined $glob |
|
770
|
8 |
0 |
if (defined $perms and defined($ptrans = ptranslatePerms($perms))) { } |
|
771
|
3 |
5 |
if ($perms =~ /[ugo]+[+-]/is) { } |
|
772
|
0 |
3 |
$perms =~ /-/s ? : |
|
781
|
8 |
0 |
if ($rv) |
|
790
|
8 |
12 |
if (defined $ptrans) { } |
|
794
|
1 |
7 |
unless (@fstat) |
|
806
|
7 |
0 |
$addPerms ? : |
|
818
|
7 |
0 |
$addPerms ? : |
|
824
|
0 |
7 |
unless (chmod $cperms, $_) |
|
837
|
12 |
0 |
if (&detaint(\$perms, 'int')) { } |
|
847
|
2 |
10 |
unless (chmod $perms, $_) |
|
891
|
2 |
2 |
unless defined $errRef |
|
895
|
4 |
0 |
if (defined $target) |
|
896
|
0 |
4 |
ref $target eq 'Paranoid::Glob' ? : |
|
901
|
0 |
4 |
unless defined $glob |
|
903
|
4 |
0 |
if ($rv) |
|
937
|
0 |
0 |
unless defined $user |
|
938
|
0 |
0 |
unless defined $group |
|
939
|
0 |
0 |
unless $user =~ /^-?\d+$/s |
|
940
|
0 |
0 |
unless $group =~ /^-?\d+$/s |
|
941
|
0 |
0 |
unless (defined $user and defined $group) |
|
948
|
0 |
0 |
unless defined $errRef |
|
952
|
0 |
0 |
if (defined $target) |
|
953
|
0 |
0 |
ref $target eq 'Paranoid::Glob' ? : |
|
958
|
0 |
0 |
unless defined $glob |
|
960
|
0 |
0 |
if ($rv and $user != -1 || $group != -1) |
|
973
|
0 |
0 |
unless (chown $user, $group, $_) |
|
1012
|
0 |
0 |
unless defined $errRef |
|
1016
|
0 |
0 |
if (defined $target) |
|
1017
|
0 |
0 |
ref $target eq 'Paranoid::Glob' ? : |
|
1022
|
0 |
0 |
unless defined $glob |
|
1024
|
0 |
0 |
if ($rv) |
|
1052
|
2 |
0 |
if (&detaint(\$binary, 'filename', \$b)) { } |
|
1057
|
1 |
2 |
if (-r "$_/$b" and -x _) |