From 1209cfbbb818c490fe4c95c1d7159d7a5015165f Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Wed, 22 Jul 2020 09:39:31 +0200
Subject: [PATCH] teetime: timing bugfix.

---
 teetime/teetime | 5 +++++
 1 file changed, 5 insertions(+)

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 {