From e6784a47e9eeb0c60e8247338b507c00a5695016 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Thu, 25 Mar 2004 19:52:36 +0000
Subject: [PATCH] Change spaces to symbols in names. PR: 856

---
 util/extract-names.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/util/extract-names.pl b/util/extract-names.pl
index 744a8e2324..35bd6ed843 100644
--- a/util/extract-names.pl
+++ b/util/extract-names.pl
@@ -9,9 +9,11 @@ while(<STDIN>) {
     } elsif ($name) {
 	if (/ - /) {
 	    s/ - .*//;
-	    s/,[ \t]+/,/g;
-	    s/^[ \t]+//g;
-	    s/[ \t]+$//g;
+	    s/,\s+/,/g;
+	    s/\s+,/,/g;
+	    s/^\s+//g;
+	    s/\s+$//g;
+	    s/\s/_/g;
 	    push @words, split ',';
 	}
     }