Skip to content
Browse files

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

…e fake "Rakudo Perl" name
  • Loading branch information...
1 parent 5b5c8f5 commit 93ec06999ea1ba442aee48dae8bb95c9348f7cc4 @Util Util committed Jul 22, 2010
Showing with 11 additions and 4 deletions.
  1. +7 −0 CREDITS
  2. +2 −2 docs/announce/2010.07
  3. +2 −2 tools/contributors.pl
View
7 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
View
4 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.
View
4 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>) {

0 comments on commit 93ec069

Please sign in to comment.
Something went wrong with that request. Please try again.