diff options
| author | Darshan Shaligram <dshaligram@users.sourceforge.net> | 2010-01-16 09:20:08 +0530 |
|---|---|---|
| committer | Darshan Shaligram <dshaligram@users.sourceforge.net> | 2010-01-16 17:25:34 +0530 |
| commit | 41fd120631f9dff2d2971a357095f93dde5bdae8 (patch) | |
| tree | 139d63495f5753bad3ec70349ab71fec7a022ede /crawl-ref/source | |
| parent | 7423e92a652914c2085e76410d3dcbe914d59b6b (diff) | |
| download | crawl-ref-41fd120631f9dff2d2971a357095f93dde5bdae8.tar.gz crawl-ref-41fd120631f9dff2d2971a357095f93dde5bdae8.zip | |
Fix name sorting in columnise-credits.
Diffstat (limited to 'crawl-ref/source')
| -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) |