[tools] fix typo and output sorted keys

rakudo · Apr 29, 2010 · e16cf45 · e16cf45
1 parent ed321b4
commit e16cf45
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tools/contributors.pl b/tools/contributors.pl
@@ -21,7 +21,7 @@
     while ($msg =~ /([^\s()]+)\+\+/g) {
         $contrib{nick_to_name($1)}++;
     }
-    while ($msg =~ /(couretsy by:?)\s*(\S.*)/i) {
+    while ($msg =~ /(courtesy by:?)\s*(\S.*)/i) {
         $contrib{nick_to_name($1)}++;
     }
 }
@@ -67,7 +67,7 @@ sub nick_to_name_from_CREDITS {
         }
     }
     close $f;
-    use Data::Dumper; print Dumper \%nicks;
+    use Data::Dumper; $Data::Dumper::Sortkeys = 1; print Dumper \%nicks;
     return \%nicks;
 }