diff options
| author | Rob Austein <sra@hactrn.net> | 2007-06-07 02:37:32 +0000 |
|---|---|---|
| committer | Rob Austein <sra@hactrn.net> | 2007-06-07 02:37:32 +0000 |
| commit | 5dadf34209c288b8fffba1016e6a3c9446381153 (patch) | |
| tree | 2ec36232cafd0da10fffda780f08a43c97d70aad /openssl/trunk/util/extract-names.pl | |
| parent | 6fcf9830cfea5236faf42cc3437ed4bed06c16de (diff) | |
Replace hacked OpenSSL code with OpenSSL 0.9.8e distribution.
svn path=/openssl/Makefile; revision=659
Diffstat (limited to 'openssl/trunk/util/extract-names.pl')
| -rw-r--r-- | openssl/trunk/util/extract-names.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/openssl/trunk/util/extract-names.pl b/openssl/trunk/util/extract-names.pl deleted file mode 100644 index 35bd6ed8..00000000 --- a/openssl/trunk/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"; - |