This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Wrap text with Porting/checkAUTHORS.pl --who option, perfect for inserting into perldelta
authorLeon Brocard <acme@astray.com>
Thu, 7 Jul 2011 11:25:16 +0000 (12:25 +0100)
committerLeon Brocard <acme@astray.com>
Thu, 7 Jul 2011 11:25:16 +0000 (12:25 +0100)
Porting/checkAUTHORS.pl

index 38b24a7..9c6c712 100755 (executable)
@@ -83,9 +83,9 @@ EOS
 sub list_authors {
     my ($patchers, $authors) = @_;
     binmode(STDOUT, ":utf8");
-    print "$_\n" for  sort { lc $a cmp lc $b }
+    print wrap '', '', join(', ', sort { lc $a cmp lc $b }
                       map { $authors->{$_} }
-                      keys %$patchers;
+                      keys %$patchers) . ".\n";
 }
 
 sub parse_commits_from_stdin {