| line |
true |
false |
branch |
|
42
|
0 |
7 |
unless eval {
do {
local(@SIG{"__DIE__", "__WARN__"}) = (sub {
push @getopt_msg, $_[0];
}
) x 2;
&GetOptions(@option)
}
} |
|
48
|
0 |
7 |
if $help |
|
49
|
0 |
7 |
if $version |
|
50
|
0 |
7 |
if $man |
|
51
|
0 |
7 |
unless @pid or @ARGV |
|
52
|
0 |
7 |
if @pid and @ARGV |
|
53
|
0 |
0 |
unless not /^-?\d+$/ or 1 >= abs $_ |
|
|
0 |
7 |
if (my(@bad) = grep({not kill(0, $_) unless not /^-?\d+$/ or 1 >= abs $_;} @pid)) |
|
54
|
0 |
0 |
1 < @bad ? : |
|
56
|
0 |
7 |
if defined $run and 0 >= $run |
|
57
|
0 |
7 |
if defined $stop and 0 >= $stop |
|
58
|
0 |
0 |
if defined $limit and defined $run and defined $stop |
|
60
|
0 |
7 |
if (defined $limit) |
|
61
|
0 |
0 |
if $limit and 1 > $limit |
|
62
|
0 |
0 |
if 1 > $limit or 99 < $limit |
|
72
|
2 |
5 |
if ($verbose) |
|
74
|
0 |
2 |
if $isfg |
|
80
|
0 |
0 |
if $verbose |
|
86
|
0 |
0 |
1 < @pid ? : |
|
88
|
0 |
0 |
1 < @kill ? : |
|
|
0 |
0 |
if $pids ne $kill |
|
93
|
0 |
7 |
if exists $SIG{'INFO'} |
|
99
|
0 |
7 |
if (@pid) |
|
101
|
0 |
0 |
if $dryrun |
|
106
|
0 |
7 |
if $dryrun |
|
108
|
0 |
7 |
unless pipe my $parent_reader, my $child_writer |
|
111
|
5 |
2 |
unless ($notty) |
|
113
|
5 |
0 |
if (not $ttyfh) { } |
|
114
|
2 |
3 |
if $verbose |
|
115
|
2 |
3 |
if 1 == $tty |
|
118
|
0 |
5 |
if ($tty) |
|
120
|
0 |
0 |
if $verbose |
|
121
|
0 |
0 |
if ($ttyfh) |
|
122
|
0 |
0 |
if $verbose |
|
124
|
0 |
0 |
if (@ARGV and $isfg) |
|
126
|
0 |
0 |
unless $termios->getattr(fileno $ttyfh) |
|
133
|
4 |
3 |
unless ($pid[0] = fork) |
|
134
|
0 |
4 |
unless defined $pid[0] |
|
136
|
0 |
4 |
if exists $SIG{'INFO'} |
|
141
|
0 |
4 |
if ($pty) { } |
|
|
4 |
0 |
elsif (not $nogroup) { } |
|
145
|
0 |
0 |
if $ttyfh |
|
155
|
1 |
3 |
if $verbose |
|
156
|
0 |
0 |
unless exec {$ARGV[0];} @ARGV |
|
164
|
0 |
3 |
if ($pty) |
|
173
|
1 |
2 |
if $verbose |
|
175
|
1 |
0 |
WIFSIGNALED($?) ? : |
|
|
2 |
1 |
WIFEXITED($?) ? : |
|
177
|
1 |
2 |
if $verbose |
|
182
|
0 |
0 |
if $verbose |
|
187
|
0 |
0 |
if $verbose |
|
191
|
0 |
0 |
if $ttyfh |
|
192
|
0 |
0 |
if $verbose |
|
202
|
0 |
3 |
unless @pid |
|
204
|
0 |
3 |
if $pty |
|
206
|
0 |
3 |
if (@kill) |
|
208
|
0 |
0 |
if $verbose |
|
212
|
0 |
0 |
if (@ARGV and $isfg) |
|
213
|
0 |
0 |
if $verbose |
|
219
|
0 |
3 |
if $termios |
|
221
|
0 |
3 |
if ($sigint) |
|
222
|
0 |
0 |
if $verbose |
|
231
|
3 |
0 |
unless @kill = get_kill_list() |
|
232
|
0 |
0 |
if $verbose |
|
233
|
0 |
0 |
unless kill "STOP", @kill |
|
235
|
0 |
0 |
if $verbose |
|
236
|
0 |
0 |
unless kill "CONT", @kill |
|
241
|
0 |
0 |
unless $group or $children |
|
247
|
3 |
0 |
if (not $children) { } |
|
250
|
0 |
3 |
if (0 > $p) { } |
|
253
|
0 |
3 |
if 1 < $g |
|
265
|
0 |
0 |
if 1 == $p->ppid and $p->pid != $p->pgrp |
|
269
|
0 |
0 |
if ($children) |
|
272
|
0 |
0 |
unless $child{$_} |
|
278
|
0 |
0 |
if ($group and not $nogroup) |
|
279
|
0 |
0 |
if ($g) { } |
|
289
|
0 |
0 |
if defined $_ |
|
292
|
0 |
0 |
if @_ |
|
300
|
0 |
0 |
unless @_ |
|
321
|
0 |
0 |
@_ ? : |