Initial import

1 files changed, 26 insertions, 0 deletions

diff --git a/lzo/util/notime.pl b/lzo/util/notime.pl
new file mode 100644
index 00000000..46eb4599
--- /dev/null
+++ b/lzo/util/notime.pl
@@ -0,0 +1,26 @@
+#! /usr/bin/perl
+##
+## vi:ts=4
+##
+##---------------------------------------------------------------------------##
+##
+##  Author:
+##      Markus F.X.J. Oberhumer         <markus@oberhumer.com>
+##
+##  Description:
+##      Remove timing values from a table created by table.pl
+##
+##  Copyright (C) 1996-2008 Markus Franz Xaver Johannes Oberhumer
+##
+##---------------------------------------------------------------------------##
+
+
+while (<>) {
+    if (substr($_,56) =~ /^\s+[\d\.]+\s+[\d\.]+\s+\|\s*\n$/) {
+        substr($_,56) = "     0.000     0.000 |\n";
+    }
+    print;
+}
+
+exit(0);
+