Remove unused ssl utils

This code is the reason perl has a name as a write only language.

ok deraadt miod

1 files changed, 0 insertions, 61 deletions

diff --git a/src/lib/libcrypto/util/files.pl b/src/lib/libcrypto/util/files.pl
deleted file mode 100644
index 41f033e3b9..0000000000
--- a/src/lib/libcrypto/util/files.pl
+++ /dev/null
@@ -1,61 +0,0 @@
-#!/usr/local/bin/perl
-#
-# used to generate the file MINFO for use by util/mk1mf.pl
-# It is basically a list of all variables from the passed makefile
-#
-
-$s="";
-while (<>)
-        {
-        chop;
-        s/#.*//;
-        if (/^(\S+)\s*=\s*(.*)$/)
-                {
-                $o="";
-                ($s,$b)=($1,$2);
-                for (;;)
-                        {
-                        if ($b =~ /\\$/)
-                                {
-                                chop($b);
-                                $o.=$b." ";
-                                $b=<>;
-                                chop($b);
-                                }
-                        else
-                                {
-                                $o.=$b." ";
-                                last;
-                                }
-                        }
-                $o =~ s/^\s+//;
-                $o =~ s/\s+$//;
-                $o =~ s/\s+/ /g;
-
-                $o =~ s/\$[({]([^)}]+)[)}]/$sym{$1}/g;
-                $sym{$s}=$o;
-                }
-        }
-
-$pwd=`pwd`; chop($pwd);
-
-if ($sym{'TOP'} eq ".")
-        {
-        $n=0;
-        $dir=".";
-        }
-else    {
-        $n=split(/\//,$sym{'TOP'});
-        @_=split(/\//,$pwd);
-        $z=$#_-$n+1;
-        foreach $i ($z .. $#_) { $dir.=$_[$i]."/"; }
-        chop($dir);
-        }
-
-print "RELATIVE_DIRECTORY=$dir\n";
-
-foreach (sort keys %sym)
-        {
-        print "$_=$sym{$_}\n";
-        }
-print "RELATIVE_DIRECTORY=\n";