Revert "Bump Pod::Simple from 3.35 to 3.36"

[perl5.git] / Porting / acknowledgements.pl

diff --git a/Porting/acknowledgements.pl b/Porting/acknowledgements.pl
index 1d5ebb8..f04dac5 100644 (file)
--- a/Porting/acknowledgements.pl
+++ b/Porting/acknowledgements.pl
@@ -25,7 +25,7 @@ use Text::Wrap;
 use Time::Piece;
 use Time::Seconds;
 use version;
-$Text::Wrap::columns = 80;
+$Text::Wrap::columns = 77;
 
 my $since_until = shift;
 
@@ -57,7 +57,7 @@ Excluding auto-generated files, documentation and release tools, there
 were approximately $formatted_code_changes lines of changes to
 $formatted_code_files .pm, .t, .c and .h files.
 
-Perl continues to flourish into its third decade thanks to a vibrant
+Perl continues to flourish into its fourth decade thanks to a vibrant
 community of users and developers. The following people are known to
 have contributed the improvements that became Perl $next_version:
 
@@ -125,7 +125,8 @@ sub _round {
 # version
 sub changes_files {
     my $output = qx(git diff --shortstat $since_until);
-    my @filenames = qx(git diff --numstat $since_until | $^X -anle 'next if m{^dist/Module-CoreList} or not /\\.(?:pm|c|h|t)\\z/; print \$F[2]');
+    my $q = ($^O =~ /^(?:MSWin32|NetWare|VMS)$/io) ? '"' : "'";
+    my @filenames = qx(git diff --numstat $since_until | $^X -anle ${q}next if m{^dist/Module-CoreList} or not /\\.(?:pm|c|h|t)\\z/; print \$F[2]$q);
     chomp @filenames;
     my $output_code_changed = qx# git diff --shortstat $since_until -- @filenames #;