line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#! /usr/bin/perl -w |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
|
|
5
|
my $VERSION = 1.02; |
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
8
|
use blib; |
|
1
|
|
|
|
|
7
|
|
|
1
|
|
|
|
|
92
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
1122
|
use Shell::POSIX::Select; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
5
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
# Make sure that file-descriptor monitoring version of select |
10
|
|
|
|
|
|
|
# doesn't get identified as loopy one |
11
|
|
|
|
|
|
|
|
12
|
1
|
|
|
|
|
3
|
$rout= $timeleft= $nfound= $wout= $eout= $timeout = 0; |
13
|
1
|
|
|
|
|
3
|
$rin = $win = $ein = ''; |
14
|
1
|
|
|
|
|
5
|
vec($rin,fileno(STDIN),1) = 1; |
15
|
1
|
|
|
|
|
3
|
vec($win,fileno(STDOUT),1) = 1; |
16
|
1
|
|
|
|
|
4
|
$ein = $rin | $win; |
17
|
|
|
|
|
|
|
|
18
|
1
|
|
|
|
|
132
|
($nfound,$timeleft) = |
19
|
|
|
|
|
|
|
select($rout=$rin, $wout=$win, $eout=$ein, $timeout); |