From 41fd120631f9dff2d2971a357095f93dde5bdae8 Mon Sep 17 00:00:00 2001
From: Darshan Shaligram <dshaligram@users.sourceforge.net>
Date: Sat, 16 Jan 2010 09:20:08 +0530
Subject: Fix name sorting in columnise-credits.

---
 crawl-ref/source/util/columnise-credits.pl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'crawl-ref/source/util')

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)
-- 
cgit v1.2.3-54-g00ecf