|  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: $!")  |