teetime: timing bugfix.
This commit is contained in:
parent
0f6c5fe466
commit
1209cfbbb8
|
@ -120,6 +120,7 @@ sub readstdin {
|
||||||
my $delta = $time - $last_time;
|
my $delta = $time - $last_time;
|
||||||
print $fh pack("L*",$delta,length $in),$in;
|
print $fh pack("L*",$delta,length $in),$in;
|
||||||
print STDOUT $in;
|
print STDOUT $in;
|
||||||
|
$last_time = $time;
|
||||||
} else {
|
} else {
|
||||||
# Select says there is something to read,
|
# Select says there is something to read,
|
||||||
# but there is not => eof
|
# but there is not => eof
|
||||||
|
@ -190,6 +191,10 @@ if(GetOptions("debug|D=s" => \$opt::D,
|
||||||
help();
|
help();
|
||||||
exit(1);
|
exit(1);
|
||||||
}
|
}
|
||||||
|
if($opt::version) {
|
||||||
|
version();
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
if($opt::input) {
|
if($opt::input) {
|
||||||
readfile(@ARGV);
|
readfile(@ARGV);
|
||||||
} else {
|
} else {
|
||||||
|
|
Loading…
Reference in a new issue