| line |
true |
false |
branch |
|
28
|
0 |
3 |
if defined $ENV{'FIND2PERL'} |
|
37
|
0 |
3 |
if defined $ENV{'PERL_LOCAL_LIB_ROOT'} |
|
39
|
3 |
0 |
defined $candidates[0] ? : |
|
43
|
0 |
3 |
unless -e $find2perl |
|
56
|
0 |
3 |
unless open SAVE_OUT, ">&", "STDOUT" |
|
57
|
0 |
3 |
unless defined fileno SAVE_OUT |
|
59
|
0 |
3 |
unless open STDOUT, ">&", $out_fh |
|
62
|
0 |
3 |
unless open SAVE_ERR, ">&", "STDERR" |
|
63
|
0 |
3 |
unless defined fileno SAVE_ERR |
|
65
|
0 |
3 |
unless open STDERR, ">&", $err_fh |
|
77
|
0 |
3 |
unless open STDERR, ">&", "SAVE_ERR" |
|
79
|
0 |
3 |
unless seek $err_fh, 0, 0 |
|
85
|
0 |
3 |
if ($error) |
|
86
|
0 |
0 |
if ($error =~ /^Unrecognized switch: -[acm]min\s*$/) { } |
|
95
|
0 |
0 |
if $ARGV[$i] =~ s/^(-[acm])min$/$1time/ |
|
106
|
0 |
3 |
if $child_error |
|
108
|
0 |
3 |
unless -s $out_fh and -s $out_file |
|
112
|
0 |
3 |
unless seek $out_fh, 0, 0 |
|
118
|
0 |
3 |
unless open STDOUT, ">&", "SAVE_OUT" |
|
130
|
0 |
3 |
if ($acm_min_error) |
|
137
|
8 |
34 |
if ($dev, $ino, $mode, $nlink, $uid, $gid) = lstat $_ and -f _ |
|
143
|
0 |
0 |
if $@ |