diff options
Diffstat (limited to 'crawl-ref/source/util/columnise-credits.pl')
| -rwxr-xr-x | crawl-ref/source/util/columnise-credits.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/crawl-ref/source/util/columnise-credits.pl b/crawl-ref/source/util/columnise-credits.pl index 66c12fbad2..2749fb8526 100755 --- a/crawl-ref/source/util/columnise-credits.pl +++ b/crawl-ref/source/util/columnise-credits.pl @@ -31,6 +31,8 @@ warn "Wrote new $CREDITS\n"; sub last_word { my $s = shift; + # Remove qualifiers after name, such as ", Jr.": + $s =~ s/,.*$//; my ($word) = $s =~ /.* (\S+)$/; $word ||= $s; lc($word) |