Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

…e fake "Rakudo Perl" name
  • Loading branch information...
commit 93ec06999ea1ba442aee48dae8bb95c9348f7cc4 1 parent 5b5c8f5
Bruce Gray Util authored
7 CREDITS
@@ -168,6 +168,13 @@ N: Gregor N. Purdy
168 168 E: gregor@focusresearch.com
169 169 S: Sunnyvale, CA
170 170
  171 +U: ingy
  172 +N: Ingy döt Net
  173 +E: ingy@ingy.net
  174 +W: http://ingy.net/
  175 +S: Seattle, WA, USA
  176 +D: Make is() work like Perl 5; add .pm6 to extensions searched.
  177 +
171 178 N: James E Keenan (Jim)
172 179 E: jkeenan@cpan.org
173 180 U: jkeenan
4 docs/announce/2010.07
@@ -52,8 +52,8 @@ Patrick R. Michaud, Jonathan Worthington, Moritz Lenz, Solomon Foster,
52 52 Carl Masak, Bruce Gray, Martin Berends, chromatic, Will "Coke" Coleda,
53 53 Matthew (lue), Timothy Totten, maard, Kodi Arfer, TimToady, Stephen Weeks,
54 54 Patrick Abi Salloum, snarkyboojum, Radu Stoica, Vyacheslav Matjukhin,
55   -Andrew Whitworth, cognominal, Tyler Curtis, Alex Kapranoff,
56   -Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯, mathw, lue, Вячеслав Матюхин, ingy
  55 +Andrew Whitworth, cognominal, Tyler Curtis, Alex Kapranoff, Ingy döt Net,
  56 +Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯, mathw, lue, Вячеслав Матюхин
57 57
58 58 If you would like to contribute, see <http://rakudo.org/how-to-help>, ask on
59 59 the perl6-compiler@perl.org mailing list, or ask on IRC #perl6 on freenode.
4 tools/contributors.pl
@@ -16,7 +16,7 @@
16 16 while (my $line = <$c>) {
17 17 my ($author, $comitter, $msg) = split /\|/, $line, 3;
18 18 $contrib{nick_to_name($author)}++;
19   - $contrib{nick_to_name($comitter)}++;
  19 + $contrib{nick_to_name($comitter)}++ if $comitter ne 'Rakudo Perl';
20 20 while ($msg =~ /\(([^)]+)\)\+\+/g) {
21 21 $contrib{nick_to_name($1)}++;
22 22 }
@@ -51,7 +51,7 @@ sub release_date_of_prev_month {
51 51 }
52 52
53 53 sub nick_to_name_from_CREDITS {
54   - open my $f, '<', 'CREDITS' or die "Can't open file CREDITS for reading: $!";
  54 + open my $f, '<:utf8', 'CREDITS' or die "Can't open file CREDITS for reading: $!";
55 55 local $/ = '';
56 56 my %nicks;
57 57 while (my $para = <$f>) {

0 comments on commit 93ec069

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