teetime: timing bugfix.

This commit is contained in:
Ole Tange 2020-07-22 09:39:31 +02:00
parent 0f6c5fe466
commit 1209cfbbb8

View file

@ -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 {