tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

teetime: timing bugfix.

Browse source
This commit is contained in:
Ole Tange 2020-07-22 09:39:31 +02:00
parent 0f6c5fe466
commit 1209cfbbb8
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
teetime/teetime
View file

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