Commit c2dc3ee8 authored by Richard Levitte's avatar Richard Levitte
Browse files

Change spaces to symbols in names. 

PR: 856
parent 482c2acf

util/extract-names.pl

+5 −3
Original line number Diff line number Diff line
@@ -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 ',';

	}

    }