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, 26 deletions

diff --git a/src/lib/libcrypto/util/extract-names.pl b/src/lib/libcrypto/util/extract-names.pl
deleted file mode 100644
index 35bd6ed843..0000000000
--- a/src/lib/libcrypto/util/extract-names.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/perl
-
-$/ = "";                        # Eat a paragraph at once.
-while(<STDIN>) {
-    chop;
-    s/\n/ /gm;
-    if (/^=head1 /) {
-        $name = 0;
-    } elsif ($name) {
-        if (/ - /) {
-            s/ - .*//;
-            s/,\s+/,/g;
-            s/\s+,/,/g;
-            s/^\s+//g;
-            s/\s+$//g;
-            s/\s/_/g;
-            push @words, split ',';
-        }
-    }
-    if (/^=head1 *NAME *$/) {
-        $name = 1;
-    }
-}
-
-print join("\n", @words),"\n";
-