Ingy.patch

diff --git a/CREDITS b/CREDITS
index 40b1b22..af4c551 100644
--- a/CREDITS
+++ b/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
diff --git a/tools/contributors.pl b/tools/contributors.pl
index d8cd6ca..d322c12 100644
--- a/tools/contributors.pl
+++ b/tools/contributors.pl
@@ -16,7 +16,7 @@ binmode $c, ':encoding(UTF-8)';
 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>) {