diff options
| author | Darshan Shaligram <dshaligram@users.sourceforge.net> | 2009-10-22 16:32:44 +0530 |
|---|---|---|
| committer | Darshan Shaligram <dshaligram@users.sourceforge.net> | 2009-10-22 17:11:47 +0530 |
| commit | 897ce67495a1a5c2535372c21ea72cd7b821f237 (patch) | |
| tree | baa2d6edb29fda4ed75ad3e078783ffd6967693b /crawl-ref/source/util | |
| parent | 07c3f86aeedb2507af07b2d343cc422cb90ffda7 (diff) | |
| download | crawl-ref-897ce67495a1a5c2535372c21ea72cd7b821f237.tar.gz crawl-ref-897ce67495a1a5c2535372c21ea72cd7b821f237.zip | |
columnise-credits should remove duplicate names.
Diffstat (limited to 'crawl-ref/source/util')
| -rwxr-xr-x | crawl-ref/source/util/columnise-credits.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/crawl-ref/source/util/columnise-credits.pl b/crawl-ref/source/util/columnise-credits.pl index 18faa86286..9582673f95 100755 --- a/crawl-ref/source/util/columnise-credits.pl +++ b/crawl-ref/source/util/columnise-credits.pl @@ -94,5 +94,6 @@ sub extract_names { for my $line (@cols) { push @names, ($line =~ /((?:\S+ )*\S+)/g); } - @names + my %dupe; + grep(!$dupe{$_}++, @names) } |