Pulling OpenSSL 0.9.8b into trunk

svn path=/openssl/trunk; revision=3

1 files changed, 17 insertions, 0 deletions

diff --git a/openssl/trunk/util/tab_num.pl b/openssl/trunk/util/tab_num.pl
new file mode 100755
index 00000000..a81ed0ed
--- /dev/null
+++ b/openssl/trunk/util/tab_num.pl
@@ -0,0 +1,17 @@
+#!/usr/local/bin/perl
+
+$num=1;
+$width=40;
+
+while (<>)
+	{
+	chop;
+
+	$i=length($_);
+
+	$n=$width-$i;
+	$i=int(($n+7)/8);
+	print $_.("\t" x $i).$num."\n";
+	$num++;
+	}
+