Add notes about bisecting modules that need displays.

[perl5.git] / Porting / acknowledgements.pl

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