add: execute openssl fetcher to fetch openssl 1.0.1j

[cassiopeia.git] / lib / openssl / util / tab_num.pl

diff --git a/lib/openssl/util/tab_num.pl b/lib/openssl/util/tab_num.pl
new file mode 100755 (executable)
index 0000000..a81ed0e
--- /dev/null
+++ b/lib/openssl/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++;
+       }
+