Make the RSA structure opaque

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

diff --git a/util/extract-names.pl b/util/extract-names.pl
index d413a045cc450da934e9b2a76833859b3881eeea..0f69335e96c793706b651c96d08061837dc10979 100644 (file)
--- a/util/extract-names.pl
+++ b/util/extract-names.pl
@@ -2,15 +2,19 @@
 
 $/ = "";                       # Eat a paragraph at once.
 while(<STDIN>) {
-    chop;
+    s|\R$||;
     s/\n/ /gm;
     if (/^=head1 /) {
        $name = 0;
     } elsif ($name) {
        if (/ - /) {
            s/ - .*//;
-           s/[ \t,]+/ /g;
-           push @words, split ' ';
+           s/,\s+/,/g;
+           s/\s+,/,/g;
+           s/^\s+//g;
+           s/\s+$//g;
+           s/\s/_/g;
+           push @words, split ',';
        }
     }
     if (/^=head1 *NAME *$/) {