upd: openssl to 1.1.0

[cassiopeia.git] / lib / openssl / util / extract-names.pl

diff --git a/lib/openssl/util/extract-names.pl b/lib/openssl/util/extract-names.pl
deleted file mode 100644 (file)
index 35bd6ed..0000000
--- a/lib/openssl/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";
-