Wrap text with Porting/checkAUTHORS.pl --who option, perfect for inserting into perldelta

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index 38b24a7d518387e6668fad680b19354ebb3cb353..9c6c71245a8bfcd3dd258a409b5a1ada42777add 100755 (executable)
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -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 {