Added Ingy to CREDITS; made contributors.pl work with UTF-8 and ignor…

…e fake "Rakudo Perl" name

CREDITS

@@ -168,6 +168,13 @@ N: Gregor N. Purdy
 E: gregor@focusresearch.com
 S: Sunnyvale, CA
 
+U: ingy
+N: Ingy döt Net
+E: ingy@ingy.net
+W: http://ingy.net/
+S: Seattle, WA, USA
+D: Make is() work like Perl 5; add .pm6 to extensions searched.
+
 N: James E Keenan (Jim)
 E: jkeenan@cpan.org
 U: jkeenan

docs/announce/2010.07

@@ -52,8 +52,8 @@ Patrick R. Michaud, Jonathan Worthington, Moritz Lenz, Solomon Foster,
 Carl Masak, Bruce Gray, Martin Berends, chromatic, Will "Coke" Coleda,
 Matthew (lue), Timothy Totten, maard, Kodi Arfer, TimToady, Stephen Weeks,
 Patrick Abi Salloum, snarkyboojum, Radu Stoica, Vyacheslav Matjukhin,
-Andrew Whitworth, cognominal, Tyler Curtis, Alex Kapranoff,
-Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯, mathw, lue, Вячеслав Матюхин, ingy
+Andrew Whitworth, cognominal, Tyler Curtis, Alex Kapranoff, Ingy döt Net,
+Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯, mathw, lue, Вячеслав Матюхин
 
 If you would like to contribute, see <http://rakudo.org/how-to-help>, ask on
 the perl6-compiler@perl.org mailing list, or ask on IRC #perl6 on freenode.

tools/contributors.pl

@@ -16,7 +16,7 @@
 while (my $line = <$c>) {
     my ($author, $comitter, $msg) = split /\|/, $line, 3;
     $contrib{nick_to_name($author)}++;
-    $contrib{nick_to_name($comitter)}++;
+    $contrib{nick_to_name($comitter)}++ if $comitter ne 'Rakudo Perl';
     while ($msg =~ /\(([^)]+)\)\+\+/g) {
         $contrib{nick_to_name($1)}++;
     }
@@ -51,7 +51,7 @@ sub release_date_of_prev_month {
 }
 
 sub nick_to_name_from_CREDITS {
-    open my $f, '<', 'CREDITS' or die "Can't open file CREDITS for reading: $!";
+    open my $f, '<:utf8', 'CREDITS' or die "Can't open file CREDITS for reading: $!";
     local $/ = '';
     my %nicks;
     while (my $para = <$f>) {