diff --git a/teetime/teetime b/teetime/teetime index c886b7e..366a3db 100755 --- a/teetime/teetime +++ b/teetime/teetime @@ -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 {