Permalink
Browse files

Minor improvement to contributors.pl

  • Loading branch information...
1 parent 00533a4 commit ef228dd818b7e3e75b0e5ceec2e90d5d9135df78 @perlpilot perlpilot committed Sep 20, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 tools/contributors.pl
View
4 tools/contributors.pl
@@ -19,10 +19,10 @@
my ($author, $comitter, $msg) = split /\|/, $line, 3;
$contrib{nick_to_name($author)}++;
$contrib{nick_to_name($comitter)}++ if $comitter ne 'Rakudo Perl';
- while ($msg =~ /\(([^)]+)\)\+\+/g) {
+ while ($msg =~ /\(([^)]{2,})\)\+\+/g) {
$contrib{nick_to_name($1)}++;
}
- while ($msg =~ /([^\s():]+)\+\+/g) {
+ while ($msg =~ /([^\s():]{2,})\+\+/g) {
my $nick = $1;
next if $nick =~ /^[\$\@]/;
$contrib{nick_to_name($nick)}++;

0 comments on commit ef228dd

Please sign in to comment.