X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d048ecb4d187ebbafce763f1e0437120c6726967..120bcf3c851ec91fb9adb04a6383a7c979ae074b:/Porting/acknowledgements.pl

diff --git a/Porting/acknowledgements.pl b/Porting/acknowledgements.pl
index 1d5ebb8..2d13564 100644
--- a/Porting/acknowledgements.pl
+++ b/Porting/acknowledgements.pl
@@ -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 #;