summaryrefslogtreecommitdiff
path: root/crypto/openssl/util/extract-names.pl
diff options
context:
space:
mode:
Diffstat (limited to 'crypto/openssl/util/extract-names.pl')
-rw-r--r--crypto/openssl/util/extract-names.pl22
1 files changed, 0 insertions, 22 deletions
diff --git a/crypto/openssl/util/extract-names.pl b/crypto/openssl/util/extract-names.pl
deleted file mode 100644
index d413a045cc450..0000000000000
--- a/crypto/openssl/util/extract-names.pl
+++ /dev/null
@@ -1,22 +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/[ \t,]+/ /g;
- push @words, split ' ';
- }
- }
- if (/^=head1 *NAME *$/) {
- $name = 1;
- }
-}
-
-print join("\n", @words),"\n";
-