diff options
Diffstat (limited to 'crypto/openssl/util/extract-names.pl')
| -rw-r--r-- | crypto/openssl/util/extract-names.pl | 22 |
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 9f2ad5ef166c7..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"; - |