From 836ce42b7343cf80c5d099f2d180b5bd43df6b2f Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <moritz@bunkus.org>
Date: Sun, 21 Jun 2020 16:12:42 +0200
Subject: [PATCH] =?UTF-8?q?add=20developer=20tool=20for=20finding=20jumps?=
 =?UTF-8?q?=20in=20timestamps=20in=20output=20of=20`mkvinfo=20-s=E2=80=A6`?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../find_timestamp_jumps_in_mkvinfo_s.pl      | 23 +++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 tools/development/find_timestamp_jumps_in_mkvinfo_s.pl

diff --git a/tools/development/find_timestamp_jumps_in_mkvinfo_s.pl b/tools/development/find_timestamp_jumps_in_mkvinfo_s.pl
new file mode 100755
index 000000000..e2b293962
--- /dev/null
+++ b/tools/development/find_timestamp_jumps_in_mkvinfo_s.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+use strict;
+
+my ($prev_ts, $prev_line) = (0, '');
+my $line_no = 0;
+
+while (<>) {
+  $line_no++;
+  chomp;
+
+  if (m{timestamp (\d+):(\d+):(\d+)\.(\d+)}) {
+    my $curr_ts = $4 + ($3 + $2 * 60 + $1 * 3_600) * 1_000_000_000;
+
+    if (($curr_ts - $prev_ts) > 10_000_000_000) {
+      print "--- jump in line $line_no\n$prev_line\n$_\n";
+    }
+
+    $prev_ts = $curr_ts;
+  }
+
+  $prev_line = $_;
+}