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