| line |
l |
!l&&r |
!l&&!r |
condition |
|
19
|
0 |
0 |
0 |
$self->{'cmd_path_chroot'} //= do {
chomp(my $chroot = `which chroot`);
croak("chroot command not available or not executable") unless -x $chroot;
$self->{'_log_trace'}->("chroot binary at $chroot") if $self->{'_log_trace'};
$chroot
} |
|
26
|
0 |
0 |
1 |
$self->{'cmd_path_strace'} //= do {
chomp(my $strace = `which strace`);
croak("strace command not available or not executable") unless -x $strace;
$self->{'_log_trace'}->("strace binary at $strace") if $self->{'_log_trace'};
$strace
} |
|
43
|
0 |
0 |
0 |
pipe(my $r, my $w) // croak("pipe: $!") |
|
44
|
0 |
0 |
0 |
pipe(my $err_r, my $err_w) // croak("pipe: $!") |
|
45
|
0 |
0 |
0 |
fork // croak("fork: $!") |
|
93
|
0 |
0 |
0 |
$self->{'src_userdb'} //= $self->_build_src_userdb |
|
|
1 |
0 |
0 |
$self->dst_userdb // "Sys::Export::Unix::UserDB"->new("auto_import", $self->{'src_userdb'} //= $self->_build_src_userdb) |
|
108
|
0 |
0 |
0 |
exists $self->{'dst_path_set'}{"usr/share/zoneinfo/$tz_name"} or $self->_dst->can("dst_abs") and -f $self->_dst->dst_abs . $tz_name |