From 3568100f8f0a937d027b17cc54be18ee75f7b957 Mon Sep 17 00:00:00 2001 From: Darshan Shaligram Date: Thu, 14 Jan 2010 08:07:16 +0530 Subject: Add Robert Burnham to credits (dpeg). Also tweak the columnise-credits script to directly update CREDITS.txt instead of sending its output to stdout. --- crawl-ref/source/util/columnise-credits.pl | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (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 9582673f95..66c12fbad2 100755 --- a/crawl-ref/source/util/columnise-credits.pl +++ b/crawl-ref/source/util/columnise-credits.pl @@ -3,25 +3,31 @@ use strict; use warnings; +my $CREDITS = 'CREDITS.txt'; + my $NAMEHEAD = qr/contributed to .*Stone Soup:\s*$/; binmode STDOUT, ':utf8'; -open my $inf, '<:utf8', 'CREDITS.txt' - or die "Unable to read CREDITS.txt: $!\n"; +open my $inf, '<:utf8', $CREDITS + or die "Unable to read $CREDITS: $!\n"; my @text = <$inf>; close $inf; my @recol = recolumnise(@text); +open my $outf, '>:utf8', $CREDITS or die "Can't write CREDITS.txt: $!\n"; for (@text) { - print; + print $outf $_; if (/$NAMEHEAD/o) { - print "\n"; - print @recol, "\n"; + print $outf "\n"; + print $outf @recol, "\n"; last; } } +close $outf; + +warn "Wrote new $CREDITS\n"; sub last_word { my $s = shift; -- cgit v1.2.3-54-g00ecf