[tools/contributors.pl] avoid infinite recursion, general cleanup

rakudo · Jul 28, 2010 · 7e8134c · 7e8134c
1 parent 8049d92
commit 7e8134c
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/tools/contributors.pl b/tools/contributors.pl
@@ -9,7 +9,7 @@
 
 my %contrib;
 
-my $last_release = release_date_of_prev_month();
+my $last_release = shift // release_date_of_prev_month();
 open my $c, '-|', 'git', 'log', "--since=$last_release", '--pretty=format:%an|%cn|%s'
     or die "Can't open pipe to git log: $!";
 binmode $c, ':encoding(UTF-8)';
@@ -23,7 +23,7 @@
     while ($msg =~ /([^\s()]+)\+\+/g) {
         $contrib{nick_to_name($1)}++;
     }
-    while ($msg =~ /(courtesy by:?)\s*(\S.*)/i) {
+    while ($msg =~ /courtesy of:?\s*(\S.*)/gi) {
         $contrib{nick_to_name($1)}++;
     }
 }
@@ -69,7 +69,6 @@ sub nick_to_name_from_CREDITS {
         }
     }
     close $f;
-    use Data::Dumper; $Data::Dumper::Sortkeys = 1; print Dumper \%nicks;
     return \%nicks;
 }