Permalink
Browse files

Merge branch 'master' of github.com:rakudo/rakudo

  • Loading branch information...
2 parents 40bf707 + 93ec069 commit d1cd713b50ef0e0a16444ca75789897f4ecc98ad @coke coke committed Jul 23, 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
@@ -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
@@ -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.
@@ -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 d1cd713

Please sign in to comment.