line |
!l |
l&&!r |
l&&r |
condition |
46
|
0 |
1 |
0 |
$directory ne '' and $file ne '' |
|
1 |
0 |
0 |
$directory ne '' and $file ne '' and substr($directory, -1) ne '/' |
|
1 |
0 |
0 |
$directory ne '' and $file ne '' and substr($directory, -1) ne '/' and substr($file, 0, 1) ne '/' |
93
|
0 |
0 |
0 |
$volume =~ m[^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)]s and $directory =~ m[^[^\\/]]s |
102
|
0 |
0 |
0 |
not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] |
|
0 |
0 |
0 |
not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] and $file =~ m[[^\\/]] |
135
|
0 |
0 |
0 |
$volume and $directory |
206
|
0 |
0 |
0 |
$volume =~ m[^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)]s and $directory =~ m[^[^\\/]]s |
215
|
0 |
0 |
0 |
not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] |
|
0 |
0 |
0 |
not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] and $file =~ m[[^\\/]] |
290
|
3 |
0 |
0 |
$^O eq 'VMS' and $fullname =~ m[^(/[^/]+/000000(/|$))(.*)] |
387
|
2 |
0 |
0 |
$^O eq 'os2' and $path =~ /^\w:\z/s |
416
|
0 |
0 |
2 |
defined $roots and length $roots |
468
|
1 |
0 |
0 |
$safe and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-w $root) |
488
|
1 |
0 |
0 |
$safe and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-l $root || -w $root) |
511
|
1 |
0 |
0 |
$Is_VMS and lstat $root |
line |
l |
!l&&r |
!l&&!r |
condition |
151
|
0 |
0 |
0 |
$volume or $directory |
240
|
0 |
0 |
0 |
$dev eq '' or $dev =~ /:\Z(?!\n)/ |
241
|
0 |
0 |
0 |
length $dev or length $dir |
324
|
0 |
0 |
0 |
$dirname || $ENV{'DEFAULT'} |
327
|
0 |
0 |
0 |
length $basename or $dirname =~ /^[^:]+:\z/ |
391
|
1 |
0 |
0 |
-d $parent or $path eq $parent |
439
|
1 |
0 |
0 |
chmod 0777, $Is_VMS ? VMS::Filespec::fileify($root) : $root or carp("Can't make directory $root read+writeable: $!") |
445
|
0 |
0 |
1 |
not defined ${"\cTAINT";} or ${"\cTAINT";} |
473
|
0 |
0 |
0 |
chmod 0777, $root or carp("Can't make directory $root writeable: $!") |
488
|
0 |
0 |
0 |
-l $root || -w $root |
495
|
0 |
0 |
0 |
chmod 0666, $root or carp("Can't make file $root writeable: $!") |